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NESTE NÚMERO 


BOMBARDEIOS E EXPLOSÕES 


Explosões e incêndios são parte integrante de mut- 
tos videogames de ação. Aprenda a reproduzir es- 
ses fenômenos no vídeo do computador. Um pro- 
grama simples de bombardeios aéreos ..... 121 


OS COMANDOS READ E DATA 


Como fazer com que o micro leia dados armaze- 
nados internamente em declarações DATA, evi- 
tando a digitação de longos e exaustivos progra- 
mas. Veja como utilizar essa técnica para a reali- 
zação de gráficos, listas, Índices e muitas outras 
coisas 





PONHA ORDEM EM SUAS CONTAS 


Use seu micro para fazer cálculos e manter regis- 
tros financeiros. Nisso, ele é tão bom quanto os 
grandes computadores comerciais. Atualize OS re- 
gistros, verifique o balanço e imprima os resulta- 
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COLABORADORES 
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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, poderão 
ser comprados, a preços atualizados, da seguinte forma: 1. Pessoalmente — por 
meio de seu jornaleiro ou dirigindo-se ao distribuidor local, cujo endereço po- 
derá ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
São Paulo os endereços são: Rua Brigadeiro Tobias, 773 (Centro); Av. Industrial, 
117 (Santo André); e, no Rio de Janeiro: Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderão ser solicitados exemplares atrasados também por carta, que deve 
ser enviada para DINAP — Distribuidor Nacional de Publicações — Números 
Atrasados — Estrada Velha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco — São Paulo. 3. Por telex — Utilize o nº (011) 33670 ABSA. Em Portu- 
gal, os pedidos devem ser feitos à Distribuidora Jardim de Publicações Ltd. — 
Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lisboa; Tel. 257-2542 
— Apartado 57 — Telex 43 069 JARLIS P. 

Não envie pagamento antecipado. O atendimentc será feito pelo reembolso postal 
e o pagamento, incluindo as despesas postais, deverá ser efetuado ao se retirar 
a encomenda na Agência do Correio. Atenção: Após seis meses do encerramento 
da coleção, os pedidos serão atendidos, dependendo da disponibilidade de es- 
toque. Obs.: Quando pedir livros, mencione sempre o título e/ou o autor da obra, 
além do número da edição. 
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Faça de seus jogos de ação um 
eletrizante passatempo, aprendendo 
a obter efeitos gráficos de explosões 
g incêndios na tela do micro. 


E relativamente fácil tornar seus pro- 
gramas de jogos mais espetaculares e 
emocionantes: para isso, basta acrescen- 
tar algumas rotinas com efeitos gráficos 
especiais. E elas não precisam ser mui- 
to complexas para dar a esses jogos um 
dinamismo bem diferente. 

Como você verá nesta lição, existem 
muitas maneiras de produzir efeitos vl- 
suais em BASIC. É preciso apenas sa- 





ber usar o tipo certo de efeito para o jo- 
go que está sendo programado. 

Os efeitos gráficos para chamas € ex- 
plosões explicados aqui são adequados 
a todos os tipos de jogos que envolvem 
a destruição de objetos como constru- 
ções, carros, aviões, tanques, navios, 
etc. Alguns deles ficarão ótimos também 
em jogos espaciais. 

Entretanto, como os efeitos de cha- 
mas e explosões utilizam o conceito de 
blocos gráficos, o tamanho máximo do 


alvo sobre o qual serão colocados é res- 
tringido pelas dimensões desses efeitos. 
significa que 


Isso você não pode 










COMO CRIAR FLASHES NA TELA 
E UM PROGRAMA SIMPLES DE 
BOMBARDEAMENTO AÉREO 


= ENRIQUEÇA A A AÇÃO COM COM 
CHAMAS E EXPLOSÕES 


adicioná-los a um programa qualquer; 
pelo contrário, essa inclusão deve ser 
cuidadosamente planejada. 

Por outro lado, muitos computado- 
res têm comandos embutidos no BASIC 
que permitem a obtenção de flashes (in- 
versão rápida de cores no video), que 
são suficientes para muitos tipos de jo- 
gos, como os de guerra espacial, e que 
têm a vantagem de não exigir adapta- 
ções para uso em um jogo determinado. 


Vamos mostrar aqui como criar, nos 
micros compatíveis com o Sinclair Spec- 
trum (como o TK-90X), o efeito visual 














de um incêndio provocado pela explo- 
são de uma bomba; depois de ir rom- 
per fortemente, o fogo se extingue gra- 
dualmente, desaparecendo da tela à me- 
dida que o prédio desaba. Isso será ex- 
plicado mais adiante. 

Mas, primeiro, precisamos de um 
avião e de uma bomba. Portanto, digi- 
te o programa abaixo: 

10 FOR N=USR "p” TO USR "q"+7 
20 READ a 

30 POKE n,a 

40 NEXT n 

50 DATA 32,16,136,154,155,8, 
16,32 

60 DATA 0,16,16,120,28,28,0,0 

Usamos aqui a técnica convencional 
de blocos gráficos definidos pelo usuá- 
rio (UDG), disponível no Spectrum. As- 
sim, criamos imagens tanto para o avião 
quanto para a bomba, armazenadas em 
uma área especial, definida pelos ende- 
reços devolvidos pelas expressões USR 
“p” e USR “'q'' na linha 10. Os códi- 
gos correspondentes estão nas declara- 
ções DATA das linhas 50 e 60, e são co- 
locadas na memória com o POKE da li- 
nha 30. Ao rodar o programa, nada 
acontecerá de início. Para verificar se os 
códigos gráficos em DATA foram digi- 
tados corretamente, digite a linha de co- 
mando abaixo (sem precedê-la com um 
número de linha). 


PRINT AT 10,15;CHAS 
CHRS 160 

— que mostrará na tela os dois blocos 
gráficos definidos. 

Em seguida, você precisará de um 
prédio ou casa para bombardear. Não 
há necessidade de um novo programa 
para isto. Apenas modifique as linhas 
10 e 50 do programa anterior. 


10 FOR N=USR TO USA "r"+7 
20 READ a 
30 POKE n,a 
40 NEXT n 
50 DATA 255,153,255,153,255, 
153,255,255 

Execute o programa de novo e teste- 
o, digitando esta linha (novamente, sem 
colocar número de linha antes): 


PRINT AT 20,15; CHARS 161 


Tendo ficado satisfeito com o resul- 
tado visivel na tela, digite NEW para 
apagar o programa da memória. Os blo- 
cos gráficos definidos antes ficarão ar- 
mazenados na memória RAM do com- 
putador, a menos que você o desligue. 


dr” 4 


ndo 


COMECE O BOMBARDEIO 





Entre agora o programa do bombar- 
deio por meio das linhás seguintes: 









DO ss ————— E 


10 BORDER O: PAPER 5: INK O: 

CLS 

20 LET aS=" j 
200 PRINT PAPER 4;AT 20,0;asS; 
aS;aS; as 
210 PRINT INK 1;AT 19,12;CHRS 
161; CHARS 161;CHRS$S 161 


O que estas linhas fazem, como você 
verá ao executá-las com o comando 
RUN, é apenas desenhar uma faixa ver- 
de, com dezesseis pixels de altura, na 
parte de baixo da tela; sobre ela ergue- 
se um armazém ou coisa parecida. A 
forma como isso é feito ilustra bem o 
uso de variáveis alfanuméricas no tra- 
balho com gráficos. 

Como você precisa de 64 bloquinhos 
coloridos de verde para fazer o terreno 
gramado, a linha 20 coloca em a$ uma 
sequência de dezesseis espaços em bran- 
co. Em seguida, a linha 200 a imprime 
na tela quatro vezes, começando na li- 
nha 20 e prosseguindo na linha 21. Isso 
economiza a digitação de 64 a$! 

A construção é colocada na tela por 
meio de um quatro PRINT do caracte- 
re gráfico de código 161 (que é o asso- 
ciado à tecla r, no computador, confor- 
me a definição no programa anterior). 

Para fazer o avião voar, só é preciso 
incluir no programa as seguintes linhas: 


215 PAUSE 100 

220 LET avy=6: LET by=ay 

230 FOR x=0 TO 30 

240 PRINT AT ay,x;" ";CHRS 159 
250 LET bx=x 

260 IF byc<l9 THEN PRINT AT by 


+1,bx+1;CHRS 160;AT by,bx;" * 
270 LET by=by+l: LET bx=bx+1 
280 IF x>29 THEN PRINT AT ay, 
+ a E Ud 
290 NEXT x 

Não existe nada de incomum nessa 
seção do programa: apenas as técnicas 
convencionais de movimentação de um 
bloco gráfico na tela, que temos usado 
em praticamente todos os programas de 
jogos para o Spectrum. Observe, entre- 
tanto, que as linhas 240, 260 e 280 são 
necessárias para apagar as ultimas po- 
sições do avião e da bomba, à medida 
que estes são deslocados pela tela. 


A EXPLOSÃO 





Vamos agora à parte mais importante 
do nosso exercício de programação: a 
explosão. E mais fácil vê-la na tela do 
que tentar descrevê-la. 

Portanto, antes de entrar o restante 
do programa, digite as linhas abaixo: 


1000 FOR n=B8 TO 80 STEP -1 
1010 PRINT AT 10,15;CHRS 150 
1020 POKE 23675,n 

1030 PAUSE 50 
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1040 NEXT n 
1050 STOP 


Mas, espere: não digite o comando 
RUN, ainda. Você poderia destruir a 
parte do programa que já foi digitada. 
Ao invés disso, digite RUN 1000, para 
começar a executar só essa parte do pro- 
grama. Você verá então uma letra G 
aparecer na tela e depois esvanecer-se 
gradualmente, até ser substituída pela le- 
tra F. Isso acontece porque o laço 
FOR...NEXT, que vai da linha 1000 à 
1040, diminui de um em um o valor ar- 
mazenado na locação de memória 
23675, que é o ponto inicial para o seu 
bloco gráfico UDG. Assim, a letra exi- 
bida na tela retrocede gradualmente no 
alfabeto. 

OÓ programa de explosão usa um tru- 
que semelhante. Para fins de segurança 
de seu programa, digite: 


POKE 23675,8B8B 


que restaura o valor original do nume- 
ro armazenado na locação de memória 
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indicada. Em seguida, apague todas as 
linhas de 1000 a 1050 e digite o restante 
do programa de bombardeio: 


90 POKE 23675,88B 

100 FOR n=0 TO 31: READ a: 
POKE USR “a"+n,a: NEXT n 
300 FOR e=8B TO BO STEP -1 
310 POKE 23675, 


320 PRINT INK 2;AT 19,12; CHARS 
145 ;CHRS 147;CHAS 145: PAUSE 

6 

330 PRINT INK 2;AT 19,12;CHRS 
147 :CHRS 145;CHRS 147: PAUSE 

6 

340 NEXT e 


400 POKE 23675,88 

500 GOTO 210 

8000 DATA 0,0,0,0,0,0,0,0,2,128 
,25,126,126,255,255,255 

9000 DATA 0,0,0,0,0,0,0,0,4,33, 
144,66,231,255,255,255 


As linhas 100, 8000 e 9000 definem 
os UDG que você precisa para explosão. 
A linha 100 lê os dados contidos nas h- 
nhas 8000 e 9000, com os códigos nu- 


méricos das partes dos gráficos e os co- 
loca na memória através do POKE. As 
linhas 300 e 340 usam a técnica descrita 
anteriormente para retirar uma imagem 
e substituí-la por outra. 

Existe, entretanto, uma diferença 
muito importante. Os UDG que criam 
a explosão são baseados nos caracteres 
gráficos B e D — respectivamente, 
CHRS$ 145 e 147. A medida que eles fo- 
rem desaparecendo da tela, você não vai 
querer que eles sejam substituídos por 
outras letras do alfabeto. Assim, os pri- 
meiros oitos elementos de cada declara- 
ção DATA, representando os caracteres 
A e C — CHRS 144 e 146, respectiva- 
mente — são todos zeros. 

Deste modo, ao invés de obter Ae € 
substituindo B e D na tela, você obtém 
espaços em branco. Se você quiser ver 
como isto funciona em “câmara lenta”, 
inclua a linha abaixo (não esqueça de 
retirá-la, depois): 

335 PAUSE 100 
A linha 400 é necessária, evidente- 
mente, para restaurar Oo valor original 


da memória 23675, que era 88, antes 
que o programa se repita de novo. 


Os computadores compatíveis com 
essa linha têm excelentes recursos para 
a obtenção de efeitos visuais dramáticos, 
usando programas bastante curtos. Ten- 
te digitar e executar o programa abai- 
XO, 


7980 PMODE 3,1 

7990 PCLS 

8000 FOR F=1 TO 1000 
8010 SCREEN 1,0 

B020 SCREEN 1,1 

8030 NEXT F 

B040 CLS 


Observe que o programa coloca fai- 
xas coloridas que migram através da te- 
la: esse efeito é causado pela alternân- 
cia super-rápida dos diferentes conjun- 
tos de cores no computador. Ele pode 
ser usado, entre outras coisas, para as- 
similar o fim de uma fase do jogo, co- 
mo uma blindagem que foi penetrada. 

O modo gráfico é definido pela linha 
7980, e a seguir a tela gráfica é limpa pe- 
la linha 7990. A linha 8010 liga um con- 
junto de cores, enquanto a linha 8020 
religa o conjunto anterior. O laço 
FOR... NEXT nas linhas 8000 e 8030 al- 
terna os conjuntos de cores em 1000 
vezes. 

A alternância liga e religa os conjun- 
tos de cores muito rapidamente — tão 


















rapidamente, na verdade, que o apare- 
lho de TV nunca tem tempo de mudar 
as cores na tela completamente antes de 
entrar em ação o outro conjunto. Co- 
mo consequência, apenas uma faixa es- 
treita da tela é mudada para cada cor. 
Se você pretende utilizar esse progra- 
ma na forma de uma sub-rotina dentro 
de outro jogo (no qual funcionará ape- 
nas com um dos comandos PMODE 
descritos na página 144) ou com o pro- 
grama de batalha espacial apresentado 
a seguir, terá que fazer algumas altera- 
ções. Primeiro, apague as linhas 7980 e 
7990; em seguida, adicione a linha: 


8500 RETURN 
Veja agora o programa a seguir: 


10 PMODE 1,1 
20 DIM A(3),B(3),M(3) 


200 FOR K=1536 TO 2016 STEP 32 
210 READ A,B: POKE K,A:POKE K+1 
'B 

220 NEXT 


230 GET(0,0)-(15,15),A,G 

240 GET(0,16)-(15,31),M,G 

250 PCLS 

260 MX=120:MY=191:PX=120:PY=20 

270 PUT (PX,PY)-(PX+15,PY+15),A 
| PSET 

280 SCREEN 1,0 

290 PUT (MX,MY)-(MX+15,MY+15),B 
| PSET 

300 My=MYy-4 

310 IF MY<36 THEN GOSUR 8000:G0 
To 260 

320 PUT (MX,MY)-(MX+15,MY+15),M 
+ PSET 

330 GOTO 290 

9000 DATA 252,63,3,192,15,240,6 
1,124,58,172,245,95,213,87,213, 
87 

9010 DATA 0,128,0,128,0,128,2,1 
60,10,168,0,192,3,240,15,60 


O programa mostra uma nave extra- 
terrestre na iminência de ser atingida por 
um missil. No momento que este alcan- 
ça o alvo, entra em ação a sub-rotina de- 
finida anteriormente, que move faixas 
coloridas pela tela. 

Quando usado com a sub-rotina, 
ele faz faixas com qualquer PMODE 
que se queira, de modo que pode ser adi- 
cionado ao final de um programa, sem 
que seja necessário alterar as linhas 8000 
a 8040. 

Eis aqui uma adaptação do progra- 
ma para fazer faixas que resulta em um 
efeito visual mais elaborado, embora os 
gráficos na tela não permaneçam into- 
cados como anteriormente. Você pode 
digitá-lo e executá-lo do jeito que está, 
ou incorporá-lo a um outro programa 
— como o da animação da nave espa- 
cial — na forma de sub-rotina. Neste ca- 
so, você precisará alterar o programa, 
apagando a linha 7990 e adicionando ao 


final uma linha com comando RE- 
TURN como foi feito anteriormente. 


7990 PMODE 3,1 
8000 FOR F=1 TO 3 
8010 FOR K=0 TO 1 
8020 SCREEN 1,K 
8030 FOR J=1 TO 4 
8040 PCLS J 

8050 NEXT J 

8060 NEXT K 

8070 NEXT F 

8080 CLS 


Sob a forma de sub-rotina, ele funcio- 
nará em qualquer um dos modos gráfi- 
cos com conjuntos de duas cores (PMODE 
0, 2 e 4) e de quatro cores (PMODE 1 e 3). 
Além de mudar os conjuntos de cores, a ro- 
tina também limpa a tela. 

As linhas 8030 a 8050 são um laço FOR... 
NEXT que colore a tela com as cores dis- 
poníveis no conjunto ativo. 

Uma última variação do programa: 
7990 PMODE 3,1 
8000 FOR F=1 TO 5 
B010 SCREEN 1,0 
8020 FOR K=1 TO 200: NEXT K 
8030 SCREEN 1,1 
8040 FOR K=1 TO 200: NEXT K 
B050 NEXT F 
B060 CLS 


Você pode escolher entre digitá-lo as- 
sim como está (como um programa au- 
tônomo) ou na forma de sub-rotina (di- 
gitando a linha 7990 e adicionando um 
comando RETURN ao seu final). 

A tela piscará rapidamente, pois as 
linhas 8020 e 8040 inserem pequenos re- 
tardos de tempo, dando oportunidade 
suficiente para a mudança de cor entre 
um conjunto e outro. 


Podemos obter efeitos visuais ainda 
melhores através da programação de 
gráficos animados. Eis aqui uma idéia 
para fazer a animação gráfica das cha- 
mas de um incêndio, que você poderia, 
por exemplo, superpor a um alvo atin- 
gido por uma bomba. O programa foi 
escrito para o PMODE 1, e não pode ser 
usado, do jeito que está, com jogos em 
outros PMODE. Digite-o e execute-o: 


10 PMODE 1,1 

20 DIM B(3),E1(3),E2(3) 
30 FOR K=1536 TO 2016 STEP 32 
40 READ A,B:POKE K,A:POKE K+1,B 
50 NEXT 

60 GET(0,0)-(15,15),E1,G 

70 GET(0,16)-(15,31),E2,G 

80 SCREEN 1,0 

250 PCLS:HX=124:HY=146 

8000 FOR N=0 TO 15 

8010 PUT (HX,HY+N)-(HX+15,HY+15 
) El, PSET 

8020 FOR K=1 TO 100:NEXT 


8030 PUT (HX,HY+N)- (HX+15, HY+15 
)  E2, PSET 

8040 FOR K=1 TO 100:NEXT 

8050 PUT (HX, HY+N)- (HX+15, HY+15 
) + B, PSET 

8060 NEXT 

9000 DATA 0,12,192,0,3,195,63,2 
92,63,252,255,255,255,255,255,2 
55 

9010 DATA 0,48,12,3,195,0,48,12 
,252,63,255,255,255,255,255,255 


Dois conjuntos de chamas são colo- 
cados na tela pelo comando PUT. 

Os dados para os conjuntos de cha- 
mas estão nas declarações DATA das li- 
nhas 9000 e 9010. Eles são colocados 
com comandos POKE na tela, com as 
linhas 30 e 50. O programa está escrito 
em uma modalidade gráfica de quatro 
cores. As linhas 60 e 70 capturam, atra- 
vês do comando GET, as formas gráfi- 
cas na tela e as armazenam nos conjun- 
tos El e E2, dimensionados na linha 20. 

As linhas 8000 e 8060 animam as cha- 
mas. Quando o programa passa pelo la- 
ço FOR...NEXT, os conjuntos El e E2 
surgem na tela, e apagam quando se 
coloca sobre eles o conjunto de espaços 














e 


Ci 





| iai 


em branco, B, com PUT. O topo das cha- 
mas é abaixado um pouco de cada vez, 
pelo + N nas linhas com comando PUT. 

Você podeusar esse programa como sub- 
rotina do programa abaixo, que simula um 
bombardeio, mas não se esqueça de alte- 
rar a linha 20 para como ela aparece no pro- 
grama: edite-a com o comando EDIT ou 
digite-a novamente. Apague a linha 80, di- 
gitando o número 80, seguido de 
<ENTER>. 


200 
210 
B 

220 
230 


FOR K=1536 TO 2016 STEP 32 
READ A,B:POKE K,A:POKE K+1, 


NEXT 

GET(0,0)-(15,15),A,G 

240 GET(0,16)-(15,31),H,G 

250 PCLS:LINE(0,163)-(255,191), 
PSET,BF 

260 HX=124:HY=146:PX=0:PY=40:B= 
O 































270 PUT (HX,HY)-(HX+15,HY+15),H 
| PSET 

280 SCREEN 1,0 

290 PUT (PX,PY)-(PX+15,PY+15),B 
| PSET 

300 PX=PX+d 

310 PUT(PX,PY)-(PX+15,PY+15),A, 
PSET 

320 IF PX=20 THEN B=1:BX=PX+B:B 
Y=PY+8 

330 IF B=1 THEN PRESET(BX,BY):P 
RESET (BX+2,BY) :BX=BX+2:BY=BY+2: 
PSET (BX,BY,4): PSET(BX+2,BY,4) 
340 IF BY=-148 THEN GOSUB 8000:B 
Y=0:GOTO 250 

350 GOTO 290 

8070 RETURN 

9020 DATA 0,0,2,0,130,128,162,1 
60,170,170,162,160,130,128,2,0 
9030 DATA 0,3,12,51,60,243,255, 
255,255,255,85,85,86,149,86,149 


Eis aqui duas versões que permitirão 
usar a sub-rotina em jogos programa- 
dos em outras modalidades gráficas 
(PMODE). A primeira é um programa 
que deve ser usado com as PMODE 3 
e 4; mude apenas o número apropriado. 


10 PMODE 3,1 

20 DIM B(6),El(6),EZ(6) 

30 FOR K=1536 TO 2496 STEP 64 
40 READ A,B:POKE K,A:POKE K+1,B 
45 POKE K+32,A:POKE K+33,B 

50 NEXT 

60 GET (0,0)-(15,15),E1L,G 

70 GET (0,16)-(15,51),E2,6 

80 SCREEN 1,0 

250 PCLS:HX=124-:HY7=-146 

8000 FOR N=0 TO 15 

8010 PUT (HX, HY+N)-— (HX+15, HY+15) 
(El, PSET 

8020 FOR K=1 TO 100: NEXT 

8030 PUT (HX,HY+N)-(HX+15, HY+15 
)  E2, PSET 

8040 FOR K=1 TO 100:NEXT 

8050 PUT (HX, HY+N)- (HX+15,HY+15) 
'B, PSET 

8060 NEXT 

9000 DATA 0,12,192,0,3,195,63,2 
52,63,252,255,255,255,255,255,2 
55 

9010 DATA 0,48,12,3,195,0,48,12 
,252,63,255,255,255,255,255,255 


Em segundo lugar, temos um progra- 
ma adequado para uso com PMODE 2: 


10 PMODE 2,1 

20 DIM B(6),El(6),EZ(6) 

30 FOR K=1536 TO 2496 STEP 32 
40 READ A: POKE K,A: POKE K+16, 
A 

50 NEXT 

60 GET (0,0)- (15,15) (El e 

70 GET(0,16)-(15,31),E2,6 

80 SCREEN 1,0 

250 PCLS:HX=124:HY=146 

8000 FOR N=0 TO 15 

8010 PUT (HX, HY+N)- (HX+15, HY+15) 
(EL, PSET 

8020 FOR K=1 TO 100:NEXT 

8030 PUT (HX,HY+N)- (HX+15,HY+15 
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) ,E2, PSET 

8040 FOR K=1 TO 100: NEXT 

8050 PUT (HX,HY+N)- (HX+15,HY+15) 
,B, PSET 

8060 NEXT 

9000 DATA 2,128,25,126,126,255, 
255,255 

9010 DATA 4,33,144,66,231,255,2 
55,255 

9020 DATA 0,12,192,0,3,195,63,2 
52,63,252,255,255,255,255,255,2 
55 


— SE 


Os computadores compativeis com a 
linha MSX têm excelentes recursos (tais 
como os sprites), para se conseguir efei- 
tos visuais dramáticos, usando-se pro- 
gramas bastante curtos. Tente digitar e 
executar o programa abaixo: 


7990 
8000 
8010 
8020 


SCREEN 0O:KEY OFF 
FOR F=1l TO 300 
COLOR 10,10,10 
COLOR 4,4,4 

8030 NEXT F 

8040 COLOR 15,4,4 


O modo de texto da tela é definido 
pela linha 7990 (SCREEN 0). A linha 
8010 estabelece uma cor de fundo (10) 
para a tela, com a mesma cor de mol- 
dura e de frente (por isso todos os nú- 
meros são iguais); a linha 8020 especifi- 
ca um segundo conjunto de cores para 
a tela. O laço FOR...NEXT nas linhas 
8000 e 8030 alterna os conjuntos de co- 
res trezentas vezes. A linha 8040 volta 
tudo à situação original de cor da tela, 
antes de interromper o programa (se vo- 
cê interrompé-lo usando as teclas 
<CTRL> <STOP>, antes de termi- 
nar o laço de repetição, terá que digitar 
pelo teclado, ou com a tecla Fl, o co- 
mando existente na linha 8040). 

Como a alternância das cores é mui- 
to rápida, apenas uma faixa estreita da 
tela é mudada para cada cor. Esse efei- 
to só pode ser conseguido, no MSX, 
com a tela de texto. Podemos introduzi- 
lo como fase final de um programa de 
animação gráfica. Acrescente as seguin- 
tes linhas ao programa: 

10 SCREEN 2,2 

200 FOR K=1 TO 24 

210 READ A:READ B 

220 AS=AS+CHAS (A) :BS=BS+CHAS (B) 
230 NEXT 

240 SPRITES(2)=AS:SPRITES(1)=-BS 
250 MX=120:MY=191 

260 PX=120:PY=20 

270 PUT SPRITE 2, (PX,PY) 

280 PUT SPRITE 1, (MX,MY) 

290 PUT SPRITE 1, (MX,MY) 

300 MY=MYy-d 

310 IF MY<36 THEN GOTO 7990 

320 PUT SPRITE 1, (MX,MY) 

330 GoTo 290 
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8050 RUN 

9000 DATA 252,0,3,0,15,0,61,2,5 
8,10,24,5,0,213,3,213,15 

9010 DATA 0,0,0,0,0,0,0,0,0,0,0 
10,0,0,0,0 

9020 DATA 63,128,192,128,240,12 
8,124,160,172,168,95,192,87,240 
[87,60 


Os dois objetos a serem movimenta- 
dos na tela (um míssil e uma nave) são 
definidos pelos códigos gráficos das li- 
nhas 9000 a 9020, montados nos sprites 
le 2. As linhas 270 e 290 colocam esses 
sprites na tela, animando o sprite | (o 
míssil) através do ciclo repetido entre 
290 e 330. 

Quando o míssil atinge a nave (linha 
310), o programa de efeito visual de fai- 
xas começando em 7990 é acionado. A 


linha 8050 manda executar o programa a 


principal desde o começo, em virtude da 
necessidade de redefinição da tela grá- 
fica na linha 10. 

Em seguida, temos uma adaptação 
do programa para fazer faixas. Você po- 
de digitá-lo e executá-lo como está, ou 
adicioná-lo a outro programa, como o 
da animação da nave espacial. 


7990 SCREEN O:KEY OFF 
8000 FOR F=1 TO 15 
8005 FOR K=1 TO 15 
B010 COLOR F,K,K 

8020 COLOR K,F,F 

8025 NEXT K 

8030 NEXT F 

8040 COLOR 15,4,4 
8050 RUN 


As linhas 8000 a 8030 formam dois 
laços FOR...NEXT que colorem a tela 


com cores disponíveis na tela do texto 


MSX. A última variação do programa é: 


7990 SCREEN O:KEY OFF 

8000 FOR F=1 TO 5 

6010 COLOR 4,10,10 

8015 FOR K=1 TO 150:NEXT K 
8020 COLOR 10,4,4 

8025 FOR K=l' TO 150:NEXT K 
8030 NEXT F 

8040 COLOR 15,4,4 

8050 RUN 


A tela pisca rapidamente, em cores 
porque as linhas 8015 e 8025 inserem pe- 


quenos retardos de tempo, dando opor- 
tunidade para o video mudar de cor en- 
tre um conjunto e outro. 


Efeitos visuais ainda melhores podem 
ser obtidos através da programação de 
sprites nos gráficos animados. Eis aqui 
uma idéia para fazer a animação gráfi- 
ca de um incêndio, 

O programa foi escrito para a tela 
gráfica SCREEN 2. Esse comando tam- 
bém é usado para definir o tamanho do 
sprite. Digite o comando NEW e entre 
as seguintes linhas: 


10 SCREEN 2,2 

30 FOR K=1 TO 32 

40 READ A:READ B 

45 AS=AS+CHRS (A) : BS=BS+CHRS (B) 
50 NEXT 

60 SPRITES(2)=AS 

70 SPRITES (1)=B$S 

75 SPRITES (0) =STRINGS (32,255) 
250 HX=124:HY=146 

8000 PUT SPRITE O, (HX,HY+16),12 
8005 FOR N=0 TO 15 

8010 PUT SPRITE 2, (HX,HY+N),6 
8020 FOR K=1 TO 100:NEXT 

8025 PUT SPRITE 2, (HX, HY+16) 
8030 PUT SPRITE 1, (HX, HY+N),6 
8040 FOR K=1 TO 100:NEXT 

8060 NEXT 

9000 DATA 0,0,192,12,3,195,63,4 
8,63,252,255,255,255,255,255,25 
5 
9010 DATA 255,255,255,255,255,2 
55,255, 299,299, 255, 295,255, 2355, 
255 ,255,255 

9020 DATA 12,48,0,3,195,0,252,1 
2,252,63,255,255,255,255,255,25 
5 


9030 DATA LILI LIS DID ID pd 
55,255,259,409,/4909, 255 ,629D 6dod 
o o UR do DR dio 


Dois conjuntos de chamas, armaze- 
nados em sprites de tamanho 2 (ou se- 
1a, 16 por 16 pixels), são colocados na 
tela pelo comando PUT. Os dados pa- 
ra os conjuntos de chamas estão nas de- 
clarações DATA das linhas 9000 a 9030. 
Eles são lidos pelas declarações DATA 





na linha 40 e colocados nas variáveis AS 
e B$, na linha 45. Após isso, os sprites 
números 1 e 2 recebem o conteúdo des- 
ses cordões. Um terceiro sprite (um blo- 
co gráfico uniformemente cheio) tam- 
bém é definido na linha 75. A cor que 
esse bloco de sprite vai assumir ao ser 
colocado na tela é determinada pelo co- 
mando PUT na linha 8000 (no caso, 
azul, que é o código d). 

As linhas 8000 a 8060 animam as chamas. 
Cada vez que o programa passa pelo laço 
FOR... NEXT, os dois sprites 1 e 2 são colo- 
cados na tela. O topo das chamas é abaixa- 
do um pouco de cada vez, pelo +N nas li- 
nhas com o comando PUT, de modo que 
dá a impressão de diminuição do fogo. 

Esse programa pode ser usado como uma” 
sub-rotina do programa a seguir, que simu- 
la um bombardeio: um prédio é alvejado. 
Adicione as linhas: 


FOR K=1 TO 32 
READ A:READ B 


200 
210 


215 DS$=DS+CHRS (A) : ES=ES+CHAS (B) 
220 NEXT 

230 SPRITES (3) =DS 

240 SPRITES (4)=ES 

250 LINE(0,163)-(255,191),12,BF 
260 HX=124:HY=146:PX=0:PY=40:B= 
Õ 

270 PUT SPRITE 4, (HX,HY),9 

300 PX=PX+4 

310 PUT SPRITE 3, (PX,PY),l4 

320 IF PX=20 THEN B=1:BX=PX+8B:B 
Y=PY+8 


330 IF B=1 THEN PRESET (BX,BY): 
PRESET (BX+2,BY) :BX=BX+2:BY=BY+2 
: PSET (BX,BY),1:PSET(BX+2,BY),1 

340 IF BY=148 THEN PUT SPRITE q 
| (HX, HY+16) : PRESET (BX,BY): PRES 
ET (BX+2,BY):GOSUB 8000:BY=0:GO 
To 250 

350 GOTO 300 

8070 RETURN 

9040 DATA 0,0,0,0,2,12,2,12,130 
/60,190,60,162,255,162,255 

9050 DATA 170,255,170,255,162,8 
5,162,85,130,86,130,86,2,86,2,8 


6 

9060 DATA 0,3,0,3,0,51,0,51,128 
,243,128,243,160,255,160,255 
9070 DATA 170,255,170,255,160,8 
5,160,85,128,149,128,149,0,149, 
0,149 
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Nesse trecho suplementar, mais dois 
sprites, 3 e 4, são definidos pelas linhas 
200 a 240, a partir dos códigos gráficos 
armazenados nas declarações DATA 
nas linhas 9040 a 9070. 

A linha 250 traça um retângulo de cor 
verde (o chão gramado); a linha 270 co- 
loca dentro dele o desenho da casa. A 
animação gráfica do avião e da bomba 
caindo é realizada pelas linhas 310 e 350. 
Na linha 340 é chamada a sub-rotina de- 
finida a partir de 8000, que recebe um 
RETURN na linha 8070. 


“ - REEESS ss 


Não é tão fácil criar efeitos visuais no 
Apple se o compararmos com outros 
micros. Ao invés de representar os de- 
senhos através de números binários con- 
vertidos para decimais e colocados na 
memória de vídeo (“'1”” representaria 
ponto aceso, e ““O”*, ponto apagado), 
temos que criar uma tabela que pode ter 
até 256 figuras, e uma vez que esteja 
num lugar apropriado da memória po- 
de-se desenhar e mover as figuras com 
o comando DRAW, sendo a cor defini- 
da por HCOLOR. O programa a seguir 
move uma chama na base da tela, 


LO HOME HGR : SCALE= 1: ROT= 
64 

20 POKE 232,0: POKE 233,3 

30 FOR K = 768 To 868 

40 READ A: POKE K,A 


50 NEXT 

250 HX = 124:HY = 146 

8000 FOR N = 1 TOlS 

8010 HCOLOR= 5 

8020 FOR K = 1 TOS 

8030 DRAW 1 AT HX,HY + N: HCOL 
OR= O 

8040 DRAW 1 AT HX,HY + N: HCOL 
OR= 5 

8050 DRAW 1 AT HX + 3,HY + N + 


2: HCOLOR= O 
B060 DRAW 1 AT 
2: HCOLOR= 5 

8070 NEXT K 
BO0B0 NEXTN 


HX + 3,HY + N*+ 






8090 TEXT 

9000 DATA 3,0,8,0,64,0,0,1,15 
0,18,54,37,36,36,4,11,54,54,54, 
46,36 

9010 DATA 36,11,54,54,46,36,4 
,100,100,11,54,54,54,37,36,4,10 
0,100,11,54 

9020 DATA 54,54,46,36,100,100 
,100,11,22,54,54,37,36,100,100, 
11,54,54,54,37 

9030 DATA 36,4,0,45,56,255,21 
9,35,109,73,45,37,63,63,63,63,3 
9,45,45,45 

9040 DATA 45,45,46,44,46,45,3 
7,63,231,219,63,255,219,39,64,7 
3,44,46,5,0 


O mesmo incêndio é desenhado e 
apagado rapidamente em duas posições 
diferentes, dando a impressão de fogo. 
As chamas desaparecem lentamente na 
parte inferior do vídeo. O programa 
funciona da seguinte maneira: 

A tabela de figuras está nas linhas 
DATA (9000 a 9040). Ela é colocada na 
memória pela repetição do comando 
POKE da linha 40, devida ao laço 
FOR... NEXT das linhas 30 e 50. A li- 
nha 20 informa onde está a tabela de fi- 
guras na memória. A linha 10 limpa a 
tela, estabelece o modo gráfico de alta 
resolução, fixa o tamanho (SCALE) e 
a orientação (ROT) da figura. 

As linhas 8000 a 8060 animam as cha- 
mas e as fazem desaparecer. Cada vez 
que o programa repete as linhas que fi- 
cam entre FOR e NEXT, as chamas são 
desenhadas e apagadas em duas posições 
diferentes da tela. Elas vão baixando 
lentamente devido ao +N nas linhas 
HPLOT, de forma que o fogo parece 
acabar. Isso acontece porque o desenho 
invade o espaço reservado para texto na 
parte inferior da tela, onde podemos co- 
locar dados gráficos sem que eles apa- 
reçam. Para entender melhor, experi- 
mente introduzir a linha: 


15 POKE -16302,0 


Essa linha elimina o espaço reserva- 
do para textos da parte inferior da tela, 
tornando visíveis quaisquer gráficos ali 
colocados.. Rodando o programa com 
essa modificação, você verá as chamas 
ocuparem posições cada vez mais bai- 
xas sem desaparecer. Não se esqueça de 
apagar essa linha digitando 15 e < RE- 
TURN>. Nosso incêndio ficará mais 
interessante se for produzido por uma 
sub-rotina dentro de um jogo, como no 
exemplo a seguir. Após acrescentar es- 
sas linhas, você verá uma pequena casa 
ser bombardeada e pegar fogo. Não se 
esqueça de apagar a linha 15. 


53 1 = 0 
60 FOR J = 8674 TO 15810 
STEP 10 24 


70 READ A(I),B(I) 
BU Le Ha 


100 NEXT 

190 1I = O 

200 FOR J = 8674 TO 15810 
STEP 1 024 

210 POKE J,B(I): POKE J + 
1,A(I) 

215 1 = II +12 

220 NEXT 

235 FOR K = 1 TO 1000: NEXT 

250 HX = 139:HY7 = 153:PX = 2595: 


Py= 40:B = 0 


290 PX = PX - dq 

300 HCOLOR= 6: DRAW 2 AT PX,PY 

310 HCOLOR= 0: DRAW 2 AT PX,PY 

320 IF PX = 239 THEN B = 
1l:BX = PX:BY = PY + B 

330 IF B = 1 THEN HCOLOR= O: 
HPLOT BX,BY: HPLOT BX - 
2,BY:BX = BX - 2:BY = 
BY + 2: HCOLOR= 3: HPLOT 
BX,BY: HPLOT BX - 2Z,BY 

340 IF BY = 152 THEN GOSUB 
8000 :BY O: GOTO 190 

350 GoTO 290 

B090 RETURN 

9050 DATA 0,3,12,51,60,243, 


255,255,255,255,85,85,86, 
149,86,149 

A casa é desenhada pelos comandos 
POKE da linha 210. O padrão do dese- 
nho é obtido da linha 9050 e guardado 
nas variáveis indexadas A e B. Progra- 
mar desenhos dessa maneira é mais fá- 
cil que definir tabelas, mas quando se 
deseja movimento e velocidade (como 
nas chamas e no avião) é preciso usar 
as tabelas e o comando DRAW. 

O formato do avião já estava na ta- 
bela do programa anterior. As chamas 
são a figura 1 da tabela, e o avião é a 
figura 2. Essas figuras são desenhadas 
respectivamente pelos comandos 
DRAW 1 e DRAW 2. 

Para parar o programa aperte simul- 
tanéamente <CTPL > e €. Mesmo que 
não apareça nada na tela, digite TEXT 
e aperte <RETURN> e tudo voltará 
ao normal. 
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OS COMANDOS READ 





DATA 


As variáveis são O grande responsa- 
vel pela versatilidade do computador. 
Atribuir valores a elas é, a maior parte 
das vezes, simples e direto: basta, por 
exemplo, dizer LET X = 5. Mas há oca- 
siões em que a quantidade de informa- 
ções que se deseja utilizar em um pro- 
grama é muito grande. Nesses momen- 
tos, é preciso recorrer às declarações 
DATA, e aos comandos READ e RES- 
TORE (esses comandos não estão dis- 
poníveis no BASIC de alguns micros). 

A palavra DATA (dados, em inglês) 
é utilizada para muitas coisas. Assim, 
tudo o que é fornecido ('“'dado”” pelo 
programador ou pelo usuário) ao com- 
putador é incluido nessa categoria. Nes- 
se artigo, porém, vamos usar a expres- 
são dados apenas em seu sentido mais 
restrito, ou seja, informações incluídas 
em um programa por meio da declara- 
ção DATA. 

A declaração INPUT serve para atri- 
buir valores a uma variável, Mas ela é 
útil somente enquanto a informação es- 
tiver sendo fornecida ao computador ca- 
da vez que o programa for rodado. 

Existem valores fixos, porém, que 
não precisam ser entrados ou alterados 
pelo operador, e podem, assim, ser iIn- 
corporados permanentemente ao pro- 
grama. Neste caso, entra em cena o se- 
gundo método de atribuição: a declara- 
ção LET. Mas, quando as informações 
são em grande quantidade, o emprego 
de comandos LET torna-se cansativo. 

Veja a seguir um exemplo onde uma 
lista fixa de cabeçalhos é utilizada para 
imprimir um documento; 


10 LET AS="DIA” 

20 LET B5=" SEMANA" 
30 LET CS="MES" 

40 LET CS$="ANO" 

50 PRINT AS,BS,CS,DS 


Veja como DATA pode ser utilizada 
com o mesmo objetivo e com uma re- 
dução no número de linhas necessárias: 


£U PRINT A3S,B3,C5,D5 
100 DATA DIA, SEMANA, MES, ANO 


“Em programas curtos não há quase 
diferença entre usar LET ou DATA. 


mm Agora, se você quiser trabalhar com cin- 
EEN quenta cabeçalhos, em vez de quatro, o 





ERR 
| 
[|||] | | 


Se você pretende evitar a digitação 
de programas longos e cansativos, 
convém preparar seu computador para 
a lertura de dados armazenados 
internamente em declarações DATA. 


nananaaa A a 


primeiro programa precisará de 46 de- 
clarações LET a mais, enquanto o se- 
gundo exigirá apenas uma ou duas h- 
nhas a mais. 

Nos compatíveis com o Spectrum 
(como o TK-90X), as palavras DATA 
devem estar sempre entre aspas. Nos ou- 
tros modelos as aspas são dispensáveis. 
A linha 100 passaria a ser escrita assim: 
DATA  "DIA”,"SEMANA”, 
"ANO" 


“COMO FUNCIONAM READ E DATA 


100 


"MES", 





Quando o computador se depara com 
uma instrução READ, ele passa a procu- 
rar em todo o programa onde se encontra 
a primeira declaração DATA. Então ele a- 
tribui o primeiro item de DATA à variável 
correspondente no comando READ. No 
programa acima, o cordão “DIA”, na de- 
claração DATA, é atribuído à variável AS, 





“SEMANA! é atribuido a BS, etc. O com- 
putador ignora qualquer declaração DA- 
TA a menos que uma declaração READ fa- 
ça com que ele a leia. 


10 DATA ALEMANHA 

20 READ AS,BS 

30 DATA BRASIL,ITALIA, 
40 READ C5S,DS 


ESPANHA 


E mais fácil ler o programa quando 
todos os DATA estão reunidos em um 
mesmo lugar. É existe uma regra inaba- 
lável: os comandos DATA devem apa- 
recer na ordem em que o computador 
vai lê-los, por meio da instrução READ. 


DIFERENTES TIPOS DE DATA 





Além de cordões alfanuméricos, as 
declarações DATA podem conter núme- 
ros. A linha Sinclair Spectrum também 
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permite que você utilize variáveis e fun- 
ções dentro de declarações DATA, 
DATA "RECIFE",256,a*5,SQR (num) 


No comando READ as variáveis devem 
ser colocadas na mesma ordem que os itens 
relativos a DATA. A linha DATA acima 
pode ser lida com o comando: 


READ AS,N,X,Y 


A primeira variável é uma variável al- 


fanumérica, para coincidir com o pri- 


meiro item de DATA. Mas os três itens 
seguintes são variáveis numéricas. 

É fácil cometer erros quando se usa 
DATA em um programa. Os principais 
problemas ocorrem quando não se pos- 
sui um número suficiente de itens ou 
quando se tenta ler com READ uma va- 
riável de outro tipo, em DATA. Se a li- 
nha DATA acima tivesse sido digitada 
incorretamente, tal como DATA 256, 


COMO FUNCIONAM AS 
DECLARAÇÕES READ E DATA 
DIFERENTES TIPOS DE DATA 

UTILIZE DATA PARA FAZER 
UMA LISTA TELEFÔNICA 


RECIFE, a x 5, então A$ receberia o va- 
lor 256! Embora errada, ela não seria re- 
jeitada (a não ser no Spectrum) pois o 
computador interpreta o valor numéri- 
co 256, neste caso, como o cordão alfa- 
numérico “256”. 

Em contrapartida, se o computador 
tentasse ler o cordão “RECIFE” e o 
atribuísse à variável númerica N, pode- 
ria perceber o erro e responder com uma 
mensagem tal como: “tipo inadequado 
(erro TM, ou TYPE MISMATCH), ou 
“dado incorreto” (erro BAD DATA, ou 
INVALID DATA, dependendo do com- 
putador); ou poderia supor que “RECI- 
FE” é um nome de variável não defini- 
do anteriormente; sua resposta, neste 
caso, seria uma mensagem de erro co- 
mo: “'varidvel não encontrada”. 

Outro erro comum é colocar itens a 
menos em DATA. 





UMA LISTA TELEFÔNICA 


Eis aqui um programa que utiliza um 
laço para a leitura interna de dados, 
atraves das declarações READ e DATA. 
E um programa muito simples para ela- 
borar uma lista telefônica particular. 


O programa abaixo roda apenas no 
TRS-Color. Para utilizá-lo nos micros 
TRS-80, modifique os números do 
PRINT nas linhas 50 e 60, para 640. 


5 CLS 

10 PRINT €70,"DIRETORIO TELEFON 
ICO" 

12 PRINT 

20 INPUT "DIGITE O NOME" ;RS 

30 FOR J=1 TO 5 

40 READ NS,TS 

S0 IF N$=A$ THEN PRINT €320,"0 

NUMERO DE ";R$S;" E: ";T$S:END 

60 IF NS$="FIM” THEN PRINT €320, 
R$;" NAO ESTA NA LISTA” 

70 NEXT J 

500 DATA ALCINO, 384-4276, JUNIOR 
,997-4036, RODRIGO,52-5114,GERTR 
UDES,5666-99994,FIM,FIM 


5 CLS 
10 PRINT AT 2,6;"GUIA TELEFON 








E A DECLARAÇÃO RESTORE 
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E | COMO DESENHAR GRÁFICOS 
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15 RESTORE 


20 INPUT “Digite o nome”,ARS 
30 FOR J=l TO 5 

40 READ NS, TS 

50 IF N$=R$ THEN PRINT AT 10 


'1:"0O numero de ";NS;" e *":;TS 
: GOTO 80 
60 IF N$="FIM” THEN PRINT AT 


10,3;R$;" NAO ESTA NA LISTA” 

7O NEXT J 

BO PRINT AT 12,0;"Quer outro 
numero (S/N)?" 

90 PAUSE O 

100 IF INKEY$="S" THEN GOTO 5 
110 IF INKEYS="Nº THEN GOTO 
2000 

500 DATA "ZULEICA","22-6400",” 
MARIA”, "33-7237","MARCELO”,"3 
4-4009","RICARDO”,"13-71824"," 
FIM”,"FIM” 


a 


10 LOCATE 12,3:PRINT"Lista tele 
fônica” 

12 PRINT:PRINT 

15 RESTORE 

20 INPUT"Digite o nome” ;RS 

30 FORJ=1TOS 

d0 READ NS, TS 

50 IFNS=AS THEN LOCATE 5,15:PRI 
NT"O número de ";NS;" é ";T5S:GO0 
TO 80 

60 IFNS="END”" THEN LOCATE 5,15: 
PRINTRS;" não está na lista!” 
70 NEXTJ 

500 DATA ESTELA,321054,J05SE,529 
884,CELI,326747,FERNANDO,511934 
+, END, END 


abc! 


5 HOME 

10 VTAB 3: HTAB 12: PRINT "Lis 
ta telefonica” 

12 PRINT PRINT 


20 INPUT "Digite o nome: ";RS 

30 FOR J=lTOS 

40 READ NS,TS 

50 IF N$ = R$ THEN VTAB 15: H 

TAB 5: PRINT "O numero de ";NS; 

" e "TS: END 

60 IF N$ = "END" THEN VTAB 15 
HTAB 5: PRINT R$;" nao esta n 

a lista!” 

70 NEXT J 

500 DATA FERNANDO, 510536, MA 

RILIA, 543286, JOAQUIM, 28999, ROB 

ERTA, 719852, END, END 
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Você pode utilizar os nomes e os nú- 
meros dos telefones dos seus amigos na 
linha DATA e colocar tantos itens DA- 
TA quanto desejar; mas não se esqueça 
de ajustar o contador de laços na linha 
30. 

A lista de itens em DATA é finaliza- 
da com as palavras FIM, FIM, para a 
linha 60 checar se já foi alcançado o fim 
da lista. Se o programa tiver lido a lista 
em DATA até o fim, isso significa que 
o nome não foi encontrado, e o progra- 
ma imprimirã uma mensagem para di 
zer isto a você. FIM (ou “FIM" no 
Spectrum) deve ser entrado duas vezes 
porque a linha 40 lê dois itens DATA 
de cada vez. 

Os cordões em DATA podem conter 
espaços, mas não virgulas. Se você pre- 
cisar entrar um cordão DATA com uma 
virgula, coloque o cordão entre aspas: 


10 READ NS,AS;BS,CS 

20 DATA JOSE DOS CAMPOS, 
"AV. BRASIL, 23”, 
CAMPINAS,13100 


A primeira linha do endereço deve ser 
escrita entre aspas por causa da virgula 
depois de AV, BRASIL. 





“COMO USAR A DECLARAÇÃO RESTORE 


Com os métodos vistos até agora, um 
programa poderá ler uma lista de DA- 
TA apenas uma vez, a menos que você 
o rode de novo. Para ler mais uma vez 
o conjunto de itens em DATA você de- 
ve incorporar ao seu programa a decla 
ração RESTORE (restaurar, em inglês). 
SE você quiser consultar os números dos 
telefones dos amigos sem rodar o pro- 
grama, substitua END ou STOP na 
linha 50 por GOTO 80 e acrescente: 


O programa listado abaixo roda ape- 
nas no TRS-Color. Para utilizá-lo em 
micros da linha TRS-80, modifique o 
número do PRINT na linha 80 para 832. 


80 PRINT €416,"VOCÊE QUER OUTRO 

NUMERO (S/N) 7?” 

90 KS=INKEYS:IF KS="" 
90 

100 IF K$="S” THEN GOTO 5 
110 END 


THEN GOTO 


80 PRINT AT 12,0;"Quer outro 
numero (5/N)?7”" 
90 PAUSE O 

100 IF INKEYS="S" 
110 IF INKEYS="N" 
2000 


THEN GOTO 5 
THEN GOTO 


BO LOCATE 3,21:PRINT"Você quer 
outro número? (S/N)” 


90 K5$=INKEYS: IF KS$="" THEN 90 
100 IF K$="S” THEN 5 

110 END 

BO VTAB 22: HTAB 1: PRINT "Voc 
e deseja mais algum numero? (5S/ 
Nj”: 

90 GET KS 

100 IF KS = "S”" THEN 5 

110 END 


Mas o que acontecerá quando você 
rodar o programa? Na primeira vez, ele 
funcionará bem. Mas, se você pressio- 
nar uma tecla para outra repetição da 
consulta, ele falhará devido à falta de 
mais itens em DATA. Mas existe uma 
solução para o problema. Acrescente: 


15 RESTORE 


Desta vez o programa continuará 
funcionando toda vez que se repetir, 
pois o comando RESTORE instrui O 
computador a voltar ao início da lista 
em DATA. E uma boa idéia colocar 
sempre uma declaração RESTORE no 
início de um programa que você estiver 
desenvolvendo, Isso faz com que você 
não fique sem nenhuma DATA, ao ten- 
tar testá-lo. Se, mais tarde, você quiser 
remover a linha RESTORE, bastará co- 





locar uma declaração REM após a linha 
em que ela está, para lembrá-lo. 

Com o comando RESTORE você po- 
de reutilizar uma lista DATA sempre 
que necessário. Ele é particularmente 
útil quando se quer ler várias vezes uma 
mesma lista de dados para pesquisar um 
determinado item, como no caso do 
programa para a lista telefônica. 


APLICAÇÕES PARA DATA 





As declarações DATA são úteis pa- 
ra todos os tipos de programa e você cer- 
tamente já as utilizou em desenhos de 
labirintos e outros efeitos. 

Frequentemente, um grande numero 
de linhas DATA é utilizado para conter 
todo o texto necessário a um jogo de 
aventuras, ou em programas aplicativos 
simples. Pode-se também armazenar 
questionários com todas as perguntas é 
respostas em linhas DATA, E os jogos 
de fliperama em BASIC as utilizam pa- 
ra definir tanto os caracteres como os 
planos de fundo. 

Programadores experientes empre- 
gam DATA para linguagem Assembly 
ou em programas em código de máqui- 
na (veja a primeira lição de Código de 
Máquina). Tais programas consistem de 
um laço FOR...NEXT curto que lê os 
códigos de máquina em uma lista DA- 
TA e usa o cômando POKE para inseri- 
los na memória. 
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Qualquer programa que contenha 
textos padronizados, figuras ou funções 
pode fazer um largo uso das listas DA- 
TA. Empregadas de maneira cuidado- 
sa, essas listas constituem um poderoso 
instrumento de programação. 


UTILIZE DATA PARA GRÁFICOS 





As declarações DATA servem igual- 
mente para programas de gráficos, pa- 
ra definir coordenadas, desenhar ou 
evocar caracteres gráficos predefinidos 
na memória ROM. Sua utilidade, po- 
rém, diminui quando o que se quer é tra- 
çar formas regulares onde as coordena- 
das ou o formato dos gráficos podem ser 
calculados. Um exemplo disso pode ser 
encontrado no programa para o TR5S- 
Color, onde os padrões repetitivos no 
topo das muralhas de um forte são cal- 
culados. 

As declarações DATA no programa 
abaixo foram deliberadamente divididas 
em várias linhas. Assim, se você quiser 
examinar ou modificar o programa fu- 
turamente e achar os itens em DATA 
que correspondem às variáveis do pro- 
grama, poderá seguir uma a uma as ins- 
truções READ; mas para um programa 
longo isto será muito cansativo. O me- 
lhor será dividir as declarações DATA 
em grupos, e — se você quiser evitar a 
memorização de tudo o que está lá den- 
tro — utilizar comandos REM para ex- 


plicar para que serve cada grupo de de- 
clarações DATA. 


Ras ES 


O programa seguinte desenha uma casa: 





10 CLS:COLOR 4,5 

20 FOR A=0 TO 8 

30 FOR B=1 TO 17 

40 READ C 

50 VPOKE (171+A*40)+B,C 

60 NEXT B 

70 NEXT A 

500 DATA 32,32,32,32,32,32,32,3 
2,32,32,32,32,219,219,219,92,3% 
510 DATA 32,32,32,32,32,32,32,3 
2,32,32,32,219,219,219,219,219, 
32 

520 DATA 32,32,32,32,32,32,32,3 
2,32,32,219,219,219,219,219,219 
(219 

530 DATA 32,32,32,199,219,219,3 
2,32,32,32,32,222,219,219,219,2 
19,219 

540 DATA 32,32,199,219,219,219, 
219,32,221,32,32,219,219, 219,41 
9,219,92 

550 DATA 32,32,215,215,215,215, 
215,219,219,193,32,32,222,215,2 
19,32,32 

560 DATA 32,32,215,16,215,202,2 
15,215,21,215,32,32,32,215,32,3 
2,32 

570 DATA 32,32,215,215,215,202, 
215,215,215,215,32,32,32,215,32 
E po 

580 DATA 195,195,195,195,195,19 
5,195,195,195,195,195,195,195,1 
95,195,195,195 


Os números em DATA fornecem as 
coordenadas das várias partes da casa (li- 
nhas 500 a 580). A parte principal do pro- 
grama estabelece os laços FOR... NEXT pa- 
ra a leitura (comando READ na linha 40) 
das partes pertinentes em DATA e as dese- 
nha, colocando os códigos de caracteres na 
página de memória da tela, por meio do co- 
mando VPOKE. 


Este programa utiliza READ...DA- 
TA para desenhar uma ponte, Se você 
entrar o programa e rodá-lo em estágios, 
será bem mais fácil ver o que está acon- 
tecendo, e assim verificar se o digitou 
corretamente: 


10 FOR t=74 TO 80 STEP 3 
20 PLOT 35,t 

30 DRAW 175,0,-2.5 

40 NEXT £ 


Este segmento do programa utiliza 
um laço FOR...NEXT para ajudar a 
traçar três pontos próximos ao lado es- 
querdo da tela; em seguida, ele desenha 


uma linha em forma de arco a partir de 
cada ponto. A linha 30 significa: ““de- 
senhe até um ponto localizado 175 pi- 
xels à direita do pixel inicial”, O parã- 
metro -2,5 dá à linha sua forma curva, 
evitando a linha reta. 

100 FOR n=18 TO 39 

110 READ a 

120 PLOT n,45 

130 DRAW 0,a 

132 PLOT n+188,45 

134 DRAW 0O,a 

140 NEXT n 
1000 DATA 70,70,67,67,70,70,60, 
60,57,57,60,60,57,57,60,60,70,7 
0,67,67,70,70 

Esta é a seção que desenha as torres. 
O laço entre as linhas 100 e 140, mais 
o número 45 (pixels da parte inferior da 
tela), nas linhas 120 e 132, traçam os 
pontos na parte inferior de cada um dos 
conjuntos de linhas verticais que defi- 
nem a torre. 
Então, as linhas 110 e 1000 assumem 

o comando. A linha 110 diz ao compu- 
tador para ler, na linha 1000, a altura 
(novamente em pixels) de cada uma das 
22 linhas verticais. Assim, a primeira hi- 
nha será 0,70 — isto é, vertical e com 
70 pixels de altura; a segunda linha será 
0,70, a terceira 0,67 e assim por diante. 
Se você quiser ver o que está acontecen- 
do, tente inserir uma linha temporária 
tal como 135 PAUSE 100 após a linha 
134, 
300 
310 


PLOT 0,75 
DRAW 255,0-0.1 
320 PLOT 0,78 
330 DRAW 255,0,-0.1 


Essas linhas desenham a pista de ro- 
lamento e -0.1 produz uma ligeira cur- 
va para cima. 


400 
410 
420 
430 
440 
1010 


FOR r=-62 TO 182 STEP 20 
PLOT r,78 

READ b 

DRAW 0,b 

NEXT 


r 
DATA 42,55,63,65,63,55,42 


Essas, por sua vez, produzem os ca- 
bos verticais entre o arco e a pista de ro- 
lamento; o laço FOR...NEXT ajuda a 
traçar as posições iniciais dos cabos, en- 
quanto as linhas 420 e 1010 regulam as 
suas fespectivas alturas. 

Se você quiser que o programa rode 
de novo, automaticamente, acrescente 
essas linhas: 


5 CLS: RESTORE 
450 GOTO 5 


A linha 5 limpa a tela e permite que 
o programa leia novamente o DATA. 


5 RES 
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TRABALHE COM INDICADORES RESTORE 





Até agora, o único problema com 
DATA se resumiu a que a informação 
precisou sempre ser chamada na mesma 
sequência, começando do mesmo lugar. 
Utilizando o RESTORE, é possível vol- 
tar ao início de uma lista, mesmo que 
não se tenha atingido o fim. Mas como 
se salta para o meio de uma lista? 

Nos computadores das linhas Sinclair 
Spectrum e MSX, existe um modo para 
se responder a essa questão. Em vez de 
uma lista apenas, você pode utilizar vá- 
nas, direcionando assim o computador 
para a lista adequada. Tente acrescen- 
tar essas linhas extras ao programa pa- 
ra o Spectrum: 


6 INPUT "PONTE ANTIGA OU MOD 
ERNA?” ; Y5 

! IF v$="a” THEN RESTORE 
1000 

8 IF yS$=“m” THEN RESTORE 
2000 

9 IF vy5<>"a” AND ySS2"m” 
THEN GOTO 5 


10 FOR t=74 TO BO STEP 3 

20 PLOT 35,t 

30 DRAW 1/5,0,-2.5 

40 NEXT t 
2000 DATA 83,84,85,86,8/7,88,89, 
90,90,90,90,90,90,90,90,89,88,8 
/,86,85,84,83 
2010 DATA 42,55,63,65,69,55,42 


Os números que seguem o comando 
RESTORE são conhecidos como indi- 
cadores de RESTORE. Eles direcionam 
o computador para uma lista DATA. 
No programa acima, se você pressionar 
a tecla O, o indicador RESTORE será 
definido com o 1000, na linha 7. 

Se você quiser que o micro vá para 
a primeira lista DATA disponivel no 


programa, não será necessário um indi- 
cador: usar o RESTORE sem um núme- 
ro de linha é o mesmo que restaurar o 
número da primeira linha DATA, 

Indicadores de restauração são mui- 
to úteis em programação de jogos. Nu- 
ma aterrissagem, por exemplo, você po- 
deria escrever uma rotina para checar se 
houve uma colisão ou um pouso segu- 
ro. As listas DATA poderiam então 
conter informações para gerar sons pa- 
ra as duas alternativas, e o indicador 
RESTORE serviria para indicar a lista 
correta. 

Outra vantagem do RESTORE inde- 
xado para definir os elementos de uma 
figura é que fica bem mais fácil acres- 
centar novos elementos a um desenho 
terminado; se quisermos adicionar um 
muro à casinha da ilustração abaixo, 
bastará colocar mais linhas DATA: 


na 


BO LOCATE 0,21:PRINT'Pressione 
qualquer tecla para uma casa co 
m muro!”; 

90 IFINKEYS<>""THENRESTORE5S20:6G 
OTOlLO0: ELSEGOTO9O0 

590 DATA 203,203,203,203,203,20 
3,203,203,203,203,203,203,203,2 
03,203,203,203 

600 DATA 203,203,203,203,203,20 
3,203,203,203,203,203,203,203,2 
03,203,203,203 


Feito o desenho, o computador per- 
guntará se você quer uma casa com mu- 
ro. Se você pressionar qualquer tecla, o 
comando RESTORE 520 na linha 90 in- 
dicará, para a próxima execução do pro- 
grama (a partir da linha 10), que as li- 
nhas DATA lidas pelos comandos 
READ na linha 40 deverão começar na 
linha 520, e não em 500, que é o seu ini- 
cio físico. De acordo com uma nova se- 
quência de caracteres gráficos (que ter- 





mina com as linhas adicionais 590 e 
600), o desenho sera diferente do ante- 
ror. 


= o Pora ce 


O programa a seguir construira um 
castelo: 


10 PCLEAR 4 

20 PMODE 4,1 

30 PCLS 5 

40 SCREEN 1,1 

30 READ SX,5SY 

60 LINE -(SX,SY),PSET 

70 FOR K=1 TO 18 

80 READ X,Y 

90 LINE -(X,Y), PRESET 

100 NEXT K 

270 GOTO 270 

500 DATA 64,160 

510 DATA 64,60,32,60,48,40,64,6 
0,32,60,32,160,110,160,110,120 
520 DATA 152,120,152,160,228,15 
0,228,60,212,40,196,60,228,60 
530 DATA 196,60,196,160,196,74 


As linhas de 10 a 40 deixam a tela pa- 
ra graficos de alta resolução pronta pa- 
ra desenhar. A linha 270 a mantém li- 
gada. As linhas 50 e 60 são um tanto in- 
comuns. As coordenadas do ponto ini- 
cial do castelo são lidas, e uma linha em 
branco é desenhada em fundo branco 
para o ponto Inicial. Algumas vezes, es- 
sa capacidade para desenhar linhas ““in- 
visíveis” torna-se bastante útil, pois elas 
podem se juntar às linhas visíveis em um 
esquema continuo de programação. 

Da linha 70 à 100, é desenhado o con- 
torno do castelo. No final desta parte do 
programa foram lidos 38 itens de DA- 
TA. Agora acrescente essas linhas e 
construa algumas muralhas: 


110 FOR K=1l TO 33 

120 LET X=XK-4 

130 LINE-(X,Y), PRESET 

140 IF Y=74 THEN LET Y=78 ELSE 
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LET Y=7/d 
150 LINE -(X,Y), PRESET 
160 NEXT K 

Provavelmente você está tentando 
adivinhar o que aconteceu à linha 
READ. Esta é uma ocasião em que as 
instruções DATA e READ não repre- 
sentam economia de trabalho, pois vo- 
cê precisaria de 66 itens de DATA para 
definir os cantos da muralha. Progra- 
mando desta forma, você não precisará 
digitar todas as linhas DATA extras. 

Essas linhas desenharão as janelas: 
170 FOR K=1 TO 8 
180 READ X,Y 
190 LINE (X,Y) - (X+4,Y), PRESET 
200 LINE (X+2,Y-2)-(X+2,Y7+6), PR 
ESET 
210 NEXT K 
540 DATA 46,80,46,120,210,80,21 
0,120,86,90,170,90,80,132,178,1 
32 

Você não precisa do DATA para fi- 
nalizar as janelas. Como elas são todas 
do mesmo tamanho, apenas um conjun- 
to de DATA é necessário. Acrescente 
agora essas linhas, rode o programa e 
veja O que acontece: 
220 FOR K=1 TO 4000 
230 NEXT K 
240 CLS: PRINT 633," PRESSIONE Q 
UALQUER TECLA PARA CONTINUAR” 
250 LET INS=INKEYS: IF IN$="" TH 
EN GOTO 250 
270 GOTO 30 

Quando você pressionar uma tecla 
qualquer, obterá OD ou a mensagem de 
erro “out of data”. A razão disso é que 
o programa chegou ao final da lista DA- 
TA — não existe mais nenhuma depois 
dele. Mas você não precisa digitar todos 
os DATA novamente. Acrescente só es- 
ta linha, que utiliza a declaração RES- 
TORE para instruir o computador a re- 
tornar ao início da lista DATA: 


260 RESTORE 
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Desenhar uma casinha nos micros da 
linha Apple é facilimo quando utiliza- 
mos DATA. Digite o programa abaixo: 


HGR 
HCOLOR=3 
FOR I=1 TO 4 
READ XC,YC,LX,LY 
HPLOT XC,YC TO XC+LX, YC TO 
XC+LX, YC+LY TO XC,YC+LY TO 
XC, YC 
NEXT 1 
FOR I=1l TO 3 
READ XO, YO,XD, YD 
HPLOT XO,YO TO XD, YD 
NEXT I 
DATA 20,50,160,80 
DATA 90,80,20,50 
DATA 40,80,30,30 
DATA 130,80,30,30 
DATA 0,50,200,50 
DATA 200,50,100,0 
460 DATA 100,0,0,50 

Os elementos em DATA fornecem as 
coordenadas para as diferentes partes da 
casa, 

A parte principal do programa liga o 
modo de alta resolução gráfica (HGR) 
e lê os dados contidos em DATA por in- 
termédio do laço FOR...NEXT nas li- 
nhas 30 a 60 e 80 a 110. 

Os dados contidos nas linhas DATA 
que vão de 400 a 430 contêm quatro nú- 
meros cada e servem para traçar retân- 
gulos de qualquer tamanho e em qual- 
quer posição na tela (rotina HPLOT na 
linha 50). Essa estratégia é vantajosa, 
pois você pode notar na ilustração que 
a casa tem no mínimo quatro retângu- 
los diferentes (a casa, a porta e as duas 
janelas). Assim, os dois primeiros nú- 
meros em DATA são as coordenadas 
XC e YC do ponto de origem do retân- 
gulo na tela (seu canto superior esquer- 
do). Os dois números seguintes são: o 


A casa da página 
anterior foi 
desenhada por um 
Apple Il a 

partir de quatro 
linhas DATA. 

Para fazer a ponte, 
o Spectrum 
utilizou PLOT 

e DRAW, junto com 
DATA. Ao lado, 
castelo construído 
em etapas 

pelos TRS-Color. 








ORGANIZE MELHOR OS COMANDOS 
DATA EM UM PROGRAMA 


As linhas DATA têm quase sempre | 


uma coisa em comum: qualquer que 
seja a informação que elas transpor- 
tam, leva-se muito tempo para digitá- 
las e fazê-las funcionar. Tudo correrá 
bem na primeira vez, mas pode ser que 
você precise retornar posteriormente a 
um programa e não consiga entender 
mais nada do que foi colocado lá. 
Organizar sistematicamente as li- 
nhas DATA do programa toma apenas 
um pouco mais de tempo, mas pode 
poupar séculos no resultado final. 
| Onde o DATA definir um gráfico por 
| biocos ou algo parecido, organize as li- 


nhas do programa para corresponder | 


diretamente às linhas do gráfico. Se o 


DATA segue um formato repetitivo (tal | 


| Como os dados em uma lista telefôni- 

| ca, por exemplo), classifique cada en- 
trada exatamente do mesmo modo nas 
linhas do programa. 


comprimento do lado paralelo ao eixo 
horizontal (LX) e o do lado paralelo ao 
eixo vertical (LY). Assim, o laço 
FOR...NEXT das linhas 30 e 60 Iê su- 
cessivamente quatro conjuntos de dados 
e traça os quatro retângulos. 

Já o traçado do triângulo exige uma 
técnica diferente. O laço que vai das li- 
nhas 80 a 110 lê 4 valores: XO, YO 
(coordenadas de origem de uma reta) e 
XD, YD (coordenadas do seu ponto fi- 
nal), e traça essa reta, na linha 90. 

Uma vez que você tenha rodado o 
programa, talvez queira repeti-lo mais 
uma vez. Para isso, tente acrescentar as 
linhas seguintes, rode o programa e ve- 
ja o que acontece: 


120 HOME 
130 PRINT "QUER VER DE NOVO 
(S/N)?":GET R$ 

140 IF R$="N” THEN TEXT:END 
150 GoTO 10 

Como vimos antes, se você pressio- 
nar uma tecla qualquer obterá OD ou 
a mensagem de erro “out of data”. A 
razão disso é que o programa chegou ao 
final da lista DATA. Felizmente, você 
não precisa digitar todos os DATA no- 
vamente. Apenas acrescente a linha se- 
guinte, que utiliza a declaração RESTO- 
RE para instruir o computador a retor- 
nar ao início da lista DATA: 


150 RESTORE:GOTO 10 
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Neste artigo, examinaremos um pro- 
grama de contabilidade doméstica, que 
foi planejado para fornecer respostas a 
perguntas como: onde foi parar o di- 
nheiro do salário? São apresentadas ver- 
sões para todos os computadores, com 
exceção dos compativeis com o ZX-81. 

Para atualizar a sua contabilidade, 
você deve ''alimentá-la'”' uma vez por 
mês com seus rendimentos e despesas. 

O programa cria uma espécie de diá- 
no contendo uma coluna para os rendi- 
mentos e sete colunas para as despesas 
sob diferentes rubricas. As subdivisões 
referentes às despesas podem ser modi- 
ficadas, caso necessário; para isso, al- 
tere os dizeres (identificação das 
categorias de despesa) na declaração 
DATA pertinente, quando digitá-las, 
junto com o programa. Mas existem al- 
gumas limitações: a coluna de rendimen- 
tos deve aparecer sempre em ultimo 
lugar; ao mesmo tempo, é necessário 
que haja um total de oito colunas. 

O programa deve ser digitado em 
duas seções: a primeira, com o próprio 
programa; e a segunda, com todas as in- 
formações com as quais você o alimen- 
tou até o momento da sua entrada. Isto 
significa que você precisará de dois no- 
mes para os programas. 

Para gravar corretamente o progra- 
ma em fita, siga o procedimento normal 
de sua máquina (comando SAVE ou 
CSAVE). Para recarregar o programa, 
siga novamente o procedimento usual 
para carregar jogos gravados em fitas. 

Quando você rodar o programa, o 
menu principal lhe dará sete opções: 
| - Entrar dados 
- Ver dados 
- Gravar em fita 
- Carregar da fita 
- Imprimir 
- Alterar um dado 
- Encerrar o programa 

Para fazer um lançamento, pressio- 
ne a tecla | quando o menu principal 
aparecer. Não acione ainda <EN- 
TER> ou <RETURN>. A cada lan- 
çamento, o computador pedirá detalhes 
como data, descrição, valor e categoria. 

Digite a informação na ordem dada, 
pressionando <ENTER> ou <RE- 
TURN após cada dado do lançamen- 
to. Espere que o computador pergunte 


A) A LA fo tus bj 
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nada 
3123784 


por um novo dado e pressione < EN- 
TER> ou <RETURNOS, trazendo de 
volta o menu. 

Para examinar um lançamento, pres- 
sione a tecla 2 quando o menu princi- 
pal aparecer. Não tecle < ENTER > ou 
<RETURN>. O computador exibirá 
um índice mostrando as várias catego- 
rias. Para selecionar uma delas digite o 
número apropriado (não tecle <EN- 
TER> ou <RETURN>, eco micro lis- 
tará os lançamentos que existem para 
aquela categoria. 

Na versão para o Spectrum, a tela 







Assim como os grandes computadores 
comerciais, seu micro pode ser 

usado para fazer cálculos e manter 
registros financeiros. Veja como 

fazer isso e facilite sua vida. 


Type RETURN in the DATE field for My 


ITEM 
SALARY 





mostrará a questão “Continua?” se ho- 
ver espaço insuficiente para exibir todos 
os lançamentos de uma vez. Neste caso, 
não pressione o N nesse ponto: prossi- 
ga até o final da listagem. 

Quando terminar, acione < EN- 
TER> ou <RETURN> e volte ao me- 
nu principal. 


COMO MODIFICAR UM LANÇAMENTO 





Quando você teclar o 6 para a opção 
de alterar um lançamento, o compuita- 







AMOUNT 











Ts a dostã mma 


a 





dor mostrará uma lista com todos os 
lançamentos já efetuados. 

Você pode se movimentar para trás 
e para a frente dentro da lista, utilizan- 
do os sinais de prontidão que aparece- 
rão na tela. O computador também dirá 
como editar (modificar) um lançamen- 
to. Uma vez que você tenha digitado 
<ENTER > ou <RETURNS, após 
fazer a alteração, o computador trará de 
volta o menu principal. Para uma segun- 
da alteração, você deve selecionar a op- 
ção 6 novamente. O comando para a 
opção de impressão funciona de forma 
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mi DIGITE E ARMAZENE O 
PROGRAMA 
AS OPÇÕES DO MENU 


E COMO ENTRAR LANÇAMENTOS 


NOS REGISTROS 


tão simples quanto um interruptor de 
luz — um liga/desliga acionado quan- 
do se tecla a opção 5 (também sem 
< ENTER> ou <RETURNS) do me- 
nu principal, O computador pedirá que 
você tecle S, se quiser usar a impresso- 
ra, ou N se não quiser. Se você pressio- 
nar a tecla S, o menu principal voltará 
automaticamente à tela e, a partir desse 
momento, tudo o que normalmente apa- 
receria na tela, usando-se a opção 2, 
passará a ser mandado para a impres- 
sora, Se quiser interromper essa opção, 
pressione a tecla 5 novamente e respon- 
da N. 

Se você não tiver uma impressora co- 
nectada ao computador, tome cuidado 
para não pressionar a tecla S. O Spec- 
trum irá ignorar as instruções neste ca- 
so, mas em qualquer um dos outros três 
computadores você poderá perder todas 
as Informações já inseridas. 


10 PMODE O:PCLEAR 1:CLEAR 10000 
20 DIM TES (200),AM(200),DAS(200 
) ,CTS (8), CA(200) 
30 FOR N=1 TO B:READ CTS(N):NEX 
T 
40 DATA MANUTENCAO DA CASA, LAZE 
BR , ALUGUEL, VESTUARIO, AUTOMOVEL, 
FERIAS, OUTROS, RENDA 
50 UlS="4HHEEERABE,PEUZS=" ELI 
00,” 
60 CLS4: PRINT €8,"MENU PRINCIP 
AL” ;: PRINT 870,"1- ENTRAR DADOS 

"1: PRINT 6€6134,"2- VER ENTRA 
DAS “+: PRINT 6198," 3- GRAVAR 

EM FITA "; 
70 PRINT 8262,"4- CARREGAR 
"; FPRINT 6€326,"5- IMPRIMIR 
"+: PRINT €390,"6- MUDAR E 

NTRADA "; : PRINT 6454,"7- SAID 
A ft 
BO AS=INKEYS:IF AS<"1" OR AS>”7 
" THEN 80 
90 ON VAL(AS) GOSUB 1000,2000,3 
000,4000,5000,6000,7000 
100 GOTO 60 
1000 CLS: IF 
8264,"MEMORIA LOTADA 
1I0ABCDEFGP1P1":RETURN 
1010 GOSUB 1160 
1020 GOSUB 1250:INPUT"DATA ";DA 
S (NU) 
1030 IF DAS(NU)="" THEN RETURN 
1040 IF LEN(DAS (NU) )>8 THEN 102 


NU>200 THEN PRINT 
IP". PLAY "T 


O 
1050 PRINT éL,DAS (NU); 


ATUALIZE OS REGISTROS 
VERIFICAÇÃO DO BALANÇO 


= 

Mo VERIFICA 

E IMPRESSÃO DOS RESULTADOS 
A 


ARMAZENE SUAS FINANÇAS 
EM FITA 


1060 GOSUB 1250:LINEINPUT"ITEM 
?" ; TES (NU) : IF LEN(TES(NU))>25 T 

HEN 1060 

1070 AS=LEFTS(TES (NU) ,9) : PRINT 

L+14-LEN(AS) /2,AS; 

1080 GOSUB 1250: INPUT"QUANTIA ”" 
:A 

1090 IF A>29999999 OR A<O THEN 1 
080 

1100 PRINT €L+19, USING U2Z5;A;:A 

M(NU) =A 

1110 GOSUB 1250: INPUT"CATEGORIA 
"CAS 

1120 GOSUB 1180:IF F=0 THEN 111 

Ô 

1130 CA (NU)=NM: PRINT EL+29, 

TS (CTS(CA(NU)),3); 

1140 IF NM<>8 THEN GT=GT+A 
1150 NU=NU+1: L=L+32:IF L=448B T 
HEN 1000 ELSE 1020 

1160 L=64: PRINT €2,"DATA" 
10)" ITEM” TAB(19) "QUANTIA” 
(29) "CAT"; 

1170 RETURN 

1180 IF VAL(CAS)<>0 THEN 1230 
1190 F=0:FOR N=1 TO B 

1200 IF CAS=LEFTS(CTS(N),LEN(CA 
S$)) THEN F=F+1:NM=N 

1210 NEXT: IF F>1 THEN F=0 

1220 RETURN 

1230 IF VAL(CAS)>8 THEN F=0:RET 

URN 

1240 NM=VAL (CAS) :F=1:RETURN 
1250 PRINT 6448," ":.PRINT 6449, 
: ! RETURN 

2000 CLS3:FOR N=1 TO B 

2010 PRINT 669+N*32,N;MIDS("- " 


LEF 


TAB ( 
TAB 


+CTS (N) +STRING$ (12,” "),1,20); 
2020 NEXT 

2030 TT=0: PRINT 8449, "QUE CATE 
GORIA ?”; 

2040 AS=INKEYS:IF AS<"1” OR AS> 
"8" THEN 2040 

2050 NM=VAL (AS) 

2060 IF PT=1 THEN PRINT4-2,CHRS 


(13) : PRINT+-2, TAB (21-LEN(CTS (NM 
))/2);CTS (NM): PRINT4-2,” DATA” 
TAB (20) " ITEM"TAB (39) "QUANTIA” 
2070 GOSUB 2280 

2080 FOR NN=0 TO NU 

2090 IF CA(NN)<>NM THEN 2150 
2106 IF PT=) THEN PRINT4A-2,USIN 
GFS:;DAS (NN); TES (NN) ;AM (NN) 

2110 PRINT €L,DAS (NN); :AS=LEFTS 
(TES (NN),13):PRINT EGL+16-LEN(AS 
)/2,A8;:PRINT €L+23, USING U2S;A 
M(NN) ;:TT=TT+AM (NN) 

2120 L=L+32:IF (L=448 AND NM<DB 
) OR (L=352 AND NM=8) THEN PRIN 
T 6465,"CONT 7", ELSE GOTO 2150 
2130 AS=INKEYS:IF A$="" THEN 21 
30 

2140 GOSUB 2280 
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OU” 
6030 
ACOS 
Õ 

6035 
= 
6040 


6050 
THE 
6060 
| 6070 
6080 


| LEFT 


| 6090 
| 6100 
M) 

6110 


=" 


| 6120 


6130 
| gere 
6140 
6150 
A=0 
| 6160 


PRINT 6481,"7A BARRA DE ESP 
PARA EDITAR”; :M=Ó:GOTO 608 


KKS=INKEYS: IFKKS=""THEN603 


IF KK5S=CHRS(B) AND M>0 THE 


N M=M-1L:GOTO 6080 


IF KKS=CHRS$ (94) AND M<NU-1 
N M=M+1:GOTO 6080 
IF KKS=CHRS (32) THEN 6100 
GOTO 6035 
PRINTOG4A, USING"E é & 
SERRRERES, & o ST;DAS(M); 


SITES (M),8) FAM(M) ;LEFTS(CTS 
(CA (M)),3) 
GOTO 6035 
IF CA(M)<>28 THEN GT=GT-AM( 
INPUT"NOVA DATA ";D$S:IF DS 
THEN 6130 
IF LEN(DS)>28 THEN 6110 ELS 


E DAS (M) =D$ 


INPUT "NOVO ITEM ";DS:IF D 
THEN 6150 
TES (M) =DS 
INPUT "NOVA QUANTIA ";A:IF 
THEN 6170 
IF ASO OR A>9999999 THEN 6 











' 150 ELSE AM(M) =A 






61/70 INPUT "NOVA CATEGORIA ";CA 


2150 NEXT: IF PT=1 THEN PRINTE- 30 pipa CA Es a spin 
2, CHR$(13): IF NM<>B THEN PRINT 3040 CLS: PRINT 865,;:INPUT"NOM Es 

|-2, TAB (28); : PRINT&-2, USING"TOT E DO ARQUIVO ";DAS 6190 CA(M) «NM 

spirit AE arde a E 6200 IF CA(M)<>8 THEN GT=GT+AM( 
2160 PRINT €463,USING "TOTAL =” 3060 PRINT 4-1,NU | | 

+UIS; TT; 3070 FOR N=0 TO NU-1 pia 

2170 IF NM<>B THEN 2250 3080 PRINT &-1,DAS(N), TES(N),AM | Gi - ; 

2180 IF PT=O0 THEN 2220 (N) , CA(N) dinda di ap MEN A 
2190 PRINT4-2,TAB(21);:PRINT4-2 3090 NEXT: CLOSEf-1:RETURN 7010 AS=INKEYS:IF AS<>"S” AND A 
| USING" RENDA TOTAL ="+UIS;TT 4000 CLS: PRINT €65,;:INPUT"NOM Cr» THEN 7010. a . 
2200 PRINT 4-2, TAB(16);:PRINTA- E DO ARQUIVO"; DAS 3020 IF AS="Nº THEN RETI 
2,USING"DESPESA TOTAL ="+Ul$;GT 4010 MOTORON:PRINT €64,"POSICIO a E TURN 
-PRINTA-2, TAB(35)" a NE O GRAVADOR E TECLE <ENTER 

2210 PRINT4-2, TAB(26);:PRINT4-2 2” nã. 

| USING" BALANCO ="+UIS:TT: 4020 AS=INKEYS:IF AS="" THEN 40 

2220 PRINT 6392, USING "RENDA TO  £0 50 LET mn=200: IF PEEK 23733= 

TAL ="+UIS:; TT; 4030 MOTOROFF:GT=0:0PEN “I",4-1 127 THEN LET mn=100 

2230 PRINT 8419,USING "DESPESA «DAS 100 DIM c$(8,16): DIM a(mn): 

TOTAL ="+UlS;GT; 4040 PRINT 6129,"ACHEI ";DAS DIM a$ (mn,23) 

2240 PRINT 8461,USING"BALANCO = 4050 INPUT 4-1,NU 110 LET u=0: LET v=1 
"+UIS;TT-GT ; 4060 FOR N=0 TO NU-1 120 FOR n=v TO 8: READ c$(n): 
2250 AS=INKEYS:IF AS="" THEN 22 4070 INPUT 4-1,DAS(N),TES(N),AM NEXT n 

50 (N), CA(N) 130 POKE 23658,8 

2260 IF AS<>CHRS(13) THEN 2000 4080 IF CA(N)<>8B THEN GT=GT+AM( 140 LET k$=".00": FOR n=v TO 7 
2270 RETURN N) 145 LET k$=kS$+CHRS 8: NEXT n 
2280 L=64:CLS NM:PRINT €(33-LEN 4090 NEXT: CLOSE f-1: RETURN 190 LET p=2: LET tt=u: LET cr= 
(CTS (NM) ))/2,CTS (NM); 5000 CLS: PRINT 665, "VOCE QUER uU 

2290 PRINT €34,"DATA”;:PRINT 44 IMPRIMIR ? (5/N)”"; 200 CLS PRINT BRIGHT v; 

5, "ITEM”;:PRINT €56,"QUANTIA”; 5010 AS=INKEYS:IF AS<>"S” AND A PAPER 2; INK 6;AT 2,1;" MEN 
2300 FOR N=32 TO 416 STEP 32 S<>"N” THEN 5010 OU PRINCIPAL! 

2310 POKE N+1032,122+NM*16:POKE 5020 PRINT "OK":IF AS="N” THEN 210 PRINT BRIGHT v; PAPER 7; 
N+1046,117+16*NM PT=0:RETURN AT 5,4;" 1- ENTRAR REGISTRO "; 
2320 NEXT:RETURN 5030 FS="% tt AT 7,4;" 2- VER REGISTROS  "; 
3000 CLS:MOTORON: PRINT 864,” POS ; "+U2S:PT=1:RETU AT 9,4;" 3- GRAVAR EM FITA "; 
ICIONE O GRAVADOR E PRESSIONE<CE RN AT 11,4;" 4- CARREGAR ” 

NTER>” 6000 IF NU=0 THEN RETURN AT 13,4;”" 5- IMPRIMIR 

3010 AS=INKEYS:IF A$="" THEN 30 6010 CLS: PRINT” DATA"TAB(11)” ";AT 15,4;" 6- MUDAR REGISTRO 
10 ITEM"TAB(19)"QUANTIA"TAB(29)"CA "AT 17,4;" 7- SAIDA 

3020 MOTOROFF:PRINT 665,"PRESSI T” ' 

ONE 'REC' NO GRAVADOR E TEC 6020 PRINT €417,"PRESSIONE <";C 220 PRINT INK 3; FLASH v; 

LE <ENTER>" HRS (94);"> PARA PROSSEGUIR BRIGHT V;AT 20,4;" - SELECIONE 

16 3030 AS=INKEYS:-IF AS="" THEN 30 OU <”";CHR$(95);"> PARA RETORNAR OPCAO - " 











230 IF INKEYS="" THEN GOTO 
230 
240 LET zS=INKEYS: IF z5S<"1” 
OR z5>"7" THEN GOTO 230 
250 CLS GOSUB 1000*VAL z5S 
260 GOTO 200 
1000 LET c=u 
1005 LET c=c+v: 
RETURN 
1006 IF ag(c,v)=" 
1010 
1007 goTo 1005 
1010 PRINT AT u,u; 


IF c=mnt+v THEN 


- THEN GOTO 


BRIGHT v; PA 


PER 2; INK 7;" DATA ITEM 
QUANTIA CAT ” 
1015 IF c=mnt+v THEN RETURN 


1020 INPUT "Digite a data”; LIN 
E aS(c,2 TO 9): IF as(c,2)=" * 
THEN RETURN 

1030 PRINT TAB u;asS(c,2 TO 9); 
1040 INPUT "Digite o item ”; LI 
NE aS(c, 10 TO 23): IF as(c,10)= 
" ”" THEN GOTO 1040 

1050 PRINT TAB 9;aS(c,1l0 TO 21) 


1060 INPUT "Quantia ";a(lc): IF 
a(c)=u THEN GOTO 1060 

1070 LET vv=a(c)*100: LET v$=ST 
R$ vv: PRINT TAB 27-LEN v$;a(c) 


10B0 INPUT "Categoria "; LINE É 
S: IF f5$="" THEN GOTO 1080 
1090 FOR n=v TO B: IF fS=cStn,v 
TO LEN £S) THEN GOTO 1130 
1100 NEXT n: GOTO 1080 

1130 IF n=B THEN LET cr=crta(c 
) 
1140 
Cc) 
1150 
1160 


IF n<>8B THEN LET tt=tt+a( 
PRINT TAB 29;cS(n,v TO 3) 
LET aS(c,v)=CHRS (48B+n) 
1200 LET c=ctv: GOTO 1015 

2000 FOR n=v TO 8: PRINT PAPER 
v: INK 7Z7:;:AT nº2,4;" ";n;"- “ie 
S(n): NEXT n 

2010 PRINT FLASH v; INK 2Z;AT 1 
9,3;” Selecione categoria(l a 8 
, 

2020 IF INKEYS="" THEN 
20 

2030 LET z$S=INKEYS: IF z$<"1" O 
R z$>"8" THEN GOTO 2020 

2040 LET t=u: LET c=u 
2050 CLS PRINT fp; 
RIGHT v; TAB 1O;cS(VAL 2z$5) 
o 

2055 LET c=c+v; 
OTO 2500 

2060 IF as(c,v)=" 
2500 

2070 IF aS(c,v)<>z5 THEN GOTO 
2055 

2080 PRINT fp;as(c,? TO 9); TAB 
l0;a$(c,10 TO 23); 

2090 LET amsa(c)*100: LET n$=ST 
R$ am: PRINT tp; TAB 29;k5; TAB 3 
1-LEN n$;a(c) 

2100 LET t=t+a(c) 

2110 GOTO 2055 

2500 PRINT tp; TAB 25;"---—--—- ad 
LET tx=t*100: LET nS=STAS tx 
2505 PRINT 4p; TAB 12;"TOTAL- "; 
TAB 29;kS; TAB 31-LEN n5S;t 


GOTO 20 


PAPER 6; B 
'TAB 3 


IF c=mn THEN G 


* THEN GOTO 
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2510 IF z$<>"8”" THEN GOTO 2590 
2520 LET tz=tt*10D0: LET nS=STRS 
tz: PRINT 'fp; TAB 4;"DESPESA T 
OTAL- ":TAB 29:;kS; TAB 31-LEN n$5 
TE 
2530 LET bas=(t-tt)*100: LET n$= 
STARS ba: PRINT '4tp; TAB 10;"BALA 
NCO- ":;TAB 29;kS; TAB 31-LEN n$S; 
ba/100 
2590 PRINT PAPER 2; INK / “Pre 
sgs10one qualquer tecla para co 
ntinuar” 


2600 PAUSE u: IF PEEK 23560=13 


THEN RETURN 

2610 CLS : GOTO 2000 

3000 GOSUB 8000: IF re=v THEN 
RETURN 

3010 PRINT PAPER 6;AT 10,U;" D 


rr 


igite o nome do arquivo data 
3015 INPUT LINE w$: IF LEN w5S> 
10 OR LEN wS<v THEN GOTO 3010 
3020 CLS SAVE wS DATA a(): SA 
VE wS DATA aS(): RETURN 
4000 GOSUB 8000: IF re=v THEN 
RETURN 
4010 PRINT BRIGHT v;AT 10,uU;"D 
igite o nome dos dados a serem 
carregados”: INPUT LINE wS. IF 
LEN wS$>10 THEN GOTO 4010 


4020 PRINT PAPER 3; INK ?Z;AT 1 
0 PT Pressione PLA 
y o 

4030 LOAD wS DATA a(): LOAD wS 

DATA aS() 

4040 LET cr=u: LET tt=u: FOR n= 
v TO mn: IF aS(n,v)="B” THEN L 


ET cr=cr+a (n) 


4050 IF asS(n,1)<>"B” THEN LET 
tt=tt+a(n) 

4060 NEXT n: RETURN 

5000 PRINT BRIGHT v;AT 10,uU;” 


Voce quer imprimir (5/N)? 
S010 PAUSE u: IF 
Goto 5010 


INKEYS="" THEN 






































— 


a 


Fá 





Dc? 


5020 LET zS=INKEYS 


5030 IF 2z$="n” THEN LET p=2: BR 
E TURN 

5040 IF z$="s” THEN LET p=3: BR 
ETURN 

5050 GgoTo 5010 

6000 LET c=v: IF a(c)=u THEN JR 


ETURN 
6010 PRINT AT u,u; 
PER (VAL as(e,v))-v; 


BRIGHT v; PA 
INK 9;” Nu 


mero “;c,cS(VAL aS(c,v)) 

6015 PRINT PAPER 2; INK 7;"'""D 
ATA ITEM QUANTIA 
"+. PRINT 'aS(c,2 TO 9);TAB 10;a 
S(c,1l0 TO 23); 

6020 LET am=a(c)*100: LET n5$=5T 


RS am: PRINT TAB 29;kS; TAB 31-L 

EN nS;aítc) 

6030 PRINT PAPER 3; INK /;AT 

O,u;”' A - Prossegue O - Retor 

na EDIT para alterat x 

gistro ” 

6040 FAUSE u 

6050 IF INKEYS="q”" AND c:v THEN 
LET c=c-v: GOTO 6010 


6060 IF INKEYS="a” AND csS2mn TH 
EN LET c=c+v 

6070 IF atc)=u THEN LET c=6-v 

6080 IF PEEK 23560=/7 THEN GoTO 
6100 

6090 GoTo 6010 

6100 INPUT BRIGHT v;"Digite a 

nova data *; LINE as(c,?2 TO 9) 
IF as(c,2)=" * THEN GOTO 6100 

6110 PRINT AT 5S,u;aS(c,Z TO 9) 

6120 INPUT BRIGHT v;"Digite o 

novo item *; LINE aS(c,10 TO 23 
): IF asS(c,10)=" * THEN GUTO 6 
120 

6130 PRINT AT 5,10;aS(tc,10 TO 4? 
3) 


6135 IF asS(c,v)="B” THEN LET c 
r=cr-a(c) 
6136 IF as(c,v)<2"B" THEN, LET 


= 
ag 
“a 


in 


HA 
FSSrr 
FFF; 


tt=tt-a(c) 

6140 INPUT BRIGHT v;"Digite no 
va quantia ";a(c): IF a(c)=u TH 
EN GOTO 6140 

6150 LET am=a(c)*100: LET n$=5T 
RS am: PRINT AT 5,29;k5S; TAB 31- 
LEN nS;a(c) 

6160 INPUT BRIGHT v;"Digite a 
nova categoria ”"; LINE £S: IF É 
$="" THEN GOTO 6160 

6170 FOR n=v TO 8: IF f$=cS(n,v 


TO LEN £S) THEN GOTO 6190 
6180 NEXT n: GOTO 6160 

6190 LET aS(c,v)=CHRS (48+n) 
6200 IF n=B THEN LET cr=crta(c 
) 

6210 IF n<& THEN LET tt=tt+ra(lc 
) 

6220 RETURN 

7000 GOSUB B0O00: IF re=v THEN 
RETURN 

7010 BAND USAR u 
2000 PRINT PAPER 4;AT 10,9;" UV 
oce tem certeza? ” 
8010 PAUSE u: LET resu: IF INKE 
Y5<>"s” THEN LET re=v 

8020 RETURN 

9000 DATA "MANUTENCAO CASA","LA 


ZER”","ALUGUEL E TAXAS”,"VESTUAR 
IO”","AUTOMOVEL”","FERIAS”, "OUTRO 
5", "RENDA" 


10 COLOR 15,4,4:KEYOFF:MOTOROFF 
: CLEAR5000 

20 DIMTES(200),AM(200), DAS (200) 
«-CTS (8), CA(200) 

30 FORN=1TOB:READCTS(N) :NEXT 

40 DATA MANUTENÇÃO DA CASA, LAZE 
R,ALUGUÉIS E TAXAS, ROUPAS, AUTOM 
ÓVEL, FERIAS, MISCELÂNEA, RENDAS 
50 UlS="SSHHHHHEEE,CEUZS=" Att 
dt, 


; 


” 
mi 


4 APLICAÇÕES 4 


60 CLS:LOCATE?,2:PRINTCM E NU 

PRINCIPÃAL":LOCATELO,6 
:PRINT"1l:- ENTRAR DADOS": LOCATE 
10,B:PRINT"2:- VER DADOS”:LOCAT 
E10,10:PRINT"3:- GRAVAR NA FITA 


70 LOCATEIO, 12: PRINT'4:- CARREG 
AR DA FITA":LOCATEIO,14:PRINT"S 
:— OPÇÃO DE IMPRESSÃO": LOCATEIO 
| 16: PRINT"6:- ALTERAR DADOS" :LO 
CATEl1O, 18: PRINT"/:- FIM DE PROG 
RAMA " 

BO LOCATEI0,22:PRINT"-ESCOLHA U 
MA OPÇÃO-" 

90 AS=INKEYS: IFAS<"IL"ORAS>2"7"TH 
EN9O 

100 ONVAL (AS) GOSUB1000,2000,300 
0,4000,5000,6000,7000 

110 COLOR 15,4,4:G0TO60 

1000 CLS: IFNU>200THENLOCATEIO,1 
5: PRINT"MEMÓRIA CHEIA!” :BEEP 
L01LU GOSUB1160 

1020 GOSUB1250: INPUT'DATA 
(NU) 
1030 
1040 


“DAS 


IFDAS (NU) =" "THENRETURN 
IFLEN (DAS (NU) ) 28THEN1020 
1050 LOCATEO,L: PRINTDAS (NU) 
1060 GOSUB1250:LINEINPUT"ITEM ? 
"1 TES (NU) : IFLEN(TES (NU) ) 225THEN 
1060 

1070 AS=LEFTS (TES (NU),15):LOCAT 
EL/-LEN(AS) /2,L: PRINTAS 

1080 GOSUB1250: INPUT"QUANTIA ”; 


A 

1090 1FA>999999940RA<OTHEN1080 
1100 LOCATEZ25,L: PRINTUSINGUZS;A 
“AM (NU) =A 

1110 GOSUB1250: INPUT"CATEGORIA 
":CAS 

1120 GOSUB1180:IFF=OTHEN1110 
1130 CA(NU)=NM:LOCATE36,L:PRINT 
LEFTS(CTS(CA(NU)),3) 

1140 IFNM<>BTHENGT=GT+A 

1150 NU=NU+1:L=L+1]: IFL=19THENIO 
OQELSE1L020 





1160 L=2:PRINT” data”; TAB(1l4); 

"item”;TAB(26);"quantia”; TAB(36 

1"eat”: 

1170 RETURN 

1180 IFVAL (CAS) <>0THEN1230 

1190 F=0:FORN=1TOB 

1200 IFCAS=LEFTS(CTS(N), LEN(CAS 

|) THENF=F+1:NM=N 

1210 NEXT: IFF>ITHENF=0 

1220 RETURN 

1230 IFVAL (CAS) >28THENF=0: RETURN 

1240 NM=VAL (CAS) :F=1:RETURN 

1250 LOCATEO, 20: PRINTSPACES (7/9) 

-: LOCATEO, 20: RETURN 

2000 CLS; FORN=ITOSB 

2010 LOCATE10O,2*N+3: PRINTN;”:- 

"«CTS(N) 

2020 NEXT 

2030 TT=-0:LOCATE15S,23: PRINT"Qua 

1 categoria? ”"; 

2040 AS=INKEYS:IFAS<"1"ORAS>2"B” 

THEN2040 

2050 NM=VAL (AS) 

2060 IFET=1ITHENLPRINTTAB(40-LEN 

(CTS (NM) )/2);CTS (NM): LPRINTTAB( 

10)” DATA”";TAB(28);"ITEM";TAB( 

51);"QUANTIA” 

2070 GOSUB2280 

2080 FORNN=OTONU 

2090 IFCA (NN) <>NMTHEN2150 

2100 IF PT=1 THEN LPRINTTAB (10) 

'DAS (NN) ; TAB (22); TES (NN); : LPRIN 

TTAB (50) USINGU2S;AM (NN) 

2110 LOCATEU,L: PRINTDAS (NN) ; :AS 

=LEFTS (TES (NN),20) :LOCATEIO: PRI 

NTAS:;:LOCATE 30: PRINTUSINGUZ2S;A 

M(NN) ;:TT=TT+AM (NN) 

2120 L=L+1:IF (L=21ANDNM<28) OR 
(L=19ANDNM=B) THEN LOCATEld4, 22 

:PRINT"scroli? ";:ELSE GOTO 215 

É) 

2130 AS=INKEYS: IFAS=""THEN2130 

2140 GOSUB228B0 

2150 NEXT: IFPT=1ANDNM<>8THENLPR 

INT: LPRINT:LPRINTTAB (38) ; USING” 

TOTAL => "+UlIS;TT 

2160 LOCATE18,22: PRINTUSING"tot 

al =>"+UlS;TT 

2170 IFNM<>8THEN2250 

2180 IFPT=0THEN2220 

2190 LPRINT:LPRINT:LPRINTTAB (40 

) ;USING"RENDA TOTAL =>"+ULS;TT 

2200 LPRINTTARB (36) ;USING"DESPES 

AS TOTAIS =>"+UlLS;GT:LPRINTTAB( 

54)” E SÓ ao Ea E, 

2210 LPRINTTAB (44); USING"BALANÇ 

O =>"+UlIS; TT-GT 

2220 LOCATE13,20:PRINTUSING"Ren 

da total =>"+UlLS:TT 

2230 LOCATE9S, 21: PRINTUSING Desp 

esas totais =>"+UlLS;GT 

2240 LOCATE1?7,22:PRINTUSING" Bal 

anço =>"+UlIS;TT-GT; 

2250 AS=INKEYS:IFAS=""THEN2250 

2260 IFAS<>CHRS (13) THEN2000 

2270 RETURN 

2280 L=3:CLS:COLOR 15,NM+2:LOCA 

TEZ0-LEN(CTS (NM) )/2: PRINTCTS (NM 

) 

2290 PRINT” data”;TAB(18)"ítem 

":;'TAB(32)" quantia”; 

2300 FORN=3TO2ZO0 

2310 VPOKEN*40+10,22:VPOKEN*40+ 











30,22 

2320 NEXT:RETUEBN 

3000 CLS:MOTOR:LOCATEO, 10: PRINT 
"Posicione a fita e pressione < 
RETURN>”" 

3010 IFINKEYS=""THEN3010 

3020 MOTOR: PRINT"Tecle <REC/PLA 
Y> e pressione <RETURN>" 

3030 IFINKEYS=""THEN3030 

3040 LOCATES, 15: INPUT"Nome do a 
rquivo ";DAS:ARS="CAS: "+DAS 
3050 OPEN ARS FOR OUTPUT AStl1 
3060 PRINT41,NU 

3070 FORN=0OTONU-1 

3080 PRINT41L,DAS (N);",":; TES (N); 
",":AM(N),CA(N) 

3090 NEXT:CLOSE+41 : RETURN 

4000 CLS:LOCATE8,10: INPUT"Nome 
do arquivo ";DAS:ARS="CAS:"+DAS 
4010 MOTOR: LOCATEO,12:PRINT"Pos 
icione a fita e tecle <RETURN>" 
4020 IFINKEY$=""THEN4020 

4030 MOTOR:LOCATEO, 14: PRINT"Pre 
sasijone a tecla <PLAY> e <RETURN 
e a 

4040 IFINKEYS=""THEN4040 

4050 MOTOR:GT=0:0PEN ARS FOR IN 


PUT AS41 
4060 LOCATEB,18:PRINT"Achei “;D 
AS 


4070 INPUTA4AL,NU 

4080 FORN=OTONU-1 

4090 INPUT+4IL,DAS(N), TES (N) AMIN 

) CA(N) 

4100 IFCA(N)<>B8BTHENGT=GT+AM(N) 

4110 NEXT:CLOSE41: RETURN 

5000 CLS:LOCATE10,10:PRINT"Impr 

essora: ” 

5010 LOCATE15,12:PRINT"[L]igada 

5020 LOCATE15,13:PRINT"[Dleslig 

ada” 

5030 AS=INKEYS:IFAS=""THEN5S0OI0 

5040 IFAS="L"THENPT=1:RETURN 

5050 IFAS="D"THENPT=0ELSES030 

5060 RETURN 

6000 IFNU=O0OTHENRETURN 

6010 CLS: PRINT" data"; TAB(1l4); 

"item"; TAB(2Z6);"quantia"; TAB(56 

J:;" cat” 

6020 LOCATEO,20: PRINT"Pressione 
[=>] para avançar” 

6030 LOCATEO,21: PRINT"Pressione 
[€<=] para retroceder": PRINT"OU 
a barra de espaços para editar 

"-GOTO60B0 

6040 AS=INKEYS:IFAS=""THEN6040 

6050 IFASC(AS) =29ANDM>OTHENM=M: 

1:G0OTO60B0 

6060 IFASC(AS) =-28ANDM<NU-ITHENM 

=M+1:G0T06080 

6070 IFASC(AS) =32THEN6JD0ELSEOU 

40 

GOBO LOCATEO, 3: PRINTDAS (M) ; TAB( 

10): LEFTS(TES(M), 15); : PRINTTAB( 

26) ;USINGU2S;AM(M);: PRINTTAB(S6 

J:;LEFTS(CTS(CA(M)), 3) 

6090 GOTO 6040 

6100 IFCA(M) <>BTHENGT=GT-AM(M) 

6110 D$="":PRINT:INPUT"Data ";D 

S: IFDS=""THEN6130 

6120 IFLEN(DS) 28THEN61] 10ELSEDAS 
(M) =DS 


6130 DS="":PRINT:INPUT“Item ";D 
S:IFDS=""THEN6150 

6140 IFLEN(DS)>25THEN61 30ELSETE 
S (M) =D5 

6150 PRINT: INPUT Quantia 
A=OTHEN61/U 

6160 IFA<00RA>99999994THEN61S5SDE 
LSEAM (MJ =A 

6170 CAS="": PRINT: INPUT"Categor 
1a ";CAS:IFCAS=""THEN6200 

6180 GOSUB1180:IFF=0THEN6170 
6190 CA(M) =NM 

6200 IFCA(M) <>B8THENGT=GT+AM (M) 
6210 RETURN 

7000 CLS:LOCATE10,15:PRINT"Fim 
do programa?” 

7010 AS=INKEYS; IFAS=""THEN 7010 
7020 IFAS<>"S"THENRETURN 


CAs IF 


[ 


| 


10 REM ONERR GOTO 8000 

20 DIM TES$(200),0QT(200),DTS(20 

0), CTS (8), CT(200) 

25 FOR N=1TO/: 

XT 

30 FOR N = 1 TO 8: READ CTS(N) 

: NEXT 

35 DATA ENTRAR DADOS, VER DADO 

S,GRAVAR EM DISCO, CARREGAR DO D 

ISCO, IMPRIMIR, ALTERAR UM DADO, F 

IM DE PROGRAMA 

40 DATA MANUTENCAO DA CASA,L 

AZER, ALUGUEIS E TAXAS, ROUPAS, AU 

TOMOVEL, FERIAS, MISCELANEA, RENDA 

5 

50 HOME RESTORE INVERSE 

UVTAB 2: HTAB 7: PRINT" MENU 
PRINCIPAL 

60 FOR N = 1 TO 7: READ K$S 


READ KS: NE 


70 HTAB 10: VTAB N * 2 + 4: PR 


INT N$":- CRS 

BO NEXT 

90 VTAB 23: HTAB 20: PRINT " O 
PCAO => ";: GET AS 

100 IFAS<"1º ORAS>F7” TH 
EN 90 

110 PRINT A$S;: NORMAL HOME 


120 ON VAL (AS) GOSUB 1000,20 

00,3000,4000,5000,6000,7000 

130 GcoTo 50 

1000 JIF NU > 200 THEN VTAB 15 
HTAB 10: PRINT CHR$ (7);"MEM 

ORIA CHEIA!"; CHRS (7): FOR N = 
1 TO 1000: NEXT RETURN 

1010 GOSUB 1160 


1020 GOSUB 1250: INPUT "DATA ( 


DD/MM/hAA) : ";DTS (NU) 

1030 IF DTS(NU) = "" THEN RET 
URN 

1040 IF LEN (DTS(NU)) > 8 THE 
N 1020 

1050 VTAB L: PRINT DTS(NU) 
1060  GOSUB 1250: INPUT “ITEM: 
"TES (NU): IF LEN (TES(NU)) > 
25 THEN 1060 

1070 AS = JLEFTS (TES(NU),15): 
VTAB L: HTAB 17 - LEN (AS) / 2 
: PRINT AS 

1080 GOSUB 1250: INPUT "QUANTI 
à: ";QT(NU) 

1090 IF QT(NU) > 99999999 OR Q 


T(NU) < O THEN 1080 


1100 VTAB L: HTAB 26: PRINT QT 
(NU) 

1110 GOSUB 1250: INPUT FCATEGO 
RIA: ";CS 


1120 D5S = CS: GOSUB 9000: IF F 
- O THEN 1110 
1130 CT(NU) = NM: VTAB L: HTAB 




















38: PRINT JLEFTS (CTS(CT(NU)),3 
Ji 

1140 IF C< > BTHENGTR=íGT 
+ QT (NU) 


1150 NU = NU + J:L = L+ 1: IF 
L = 21 THEN 1000 

1155 GOTO 1020 

1160 L = 3: PRINT ”" data”; TAB 
( 15);"item”; TAB( 26);"quantia 
". TAB( 38);"cat”; 

1170 RETURN 


1250 HTAB 1: VTAB 23: CALL - 
958: RETURN 

2000 HOME : FOR N = 1 TOB 
2010 HTAB 10: VTAB 2 * N+3 
2020 PRINT N;":- ";CTS(N): NEX 


T 
2030 TT = O: HTAB 15: VTAB 23: 
PRINT "Qual categoria? "; 


2040 GET AS: IF AS < "1º OR AS 
> "B” THEN 2040 

2050 NM = VAL (AS) 

2060 IF PT = | THEN PRINT : P 

RINT CHARS (4);"PR$1": PRINT € 


HRS (9);"BON": PRINT SPC( 40 

LEN (CTS(NM)) / 2);CTS(NM): 
RINT : PRINT SPC( 10);” DATA" 
: SPC( 17);" ITEM"; SPC( 18)"QUA 


o 


NTIA”: PRINT CHARS (4):;"PR40" 
2070 GOSUB 2280 

2080 FOR NN = O TO NU 

2090 IF CT(NN) < > NM THEN 21 
50 

2100 IF PT = 1 THEN PRINT: P 
RINT CHRS (4);"PR$1": PRINT C 
HRS (9):;"B0N”";: PRINT SPC( 10) 
:DTS (NN); SPC( 5 + (8 - LEN (D 
TS (NN))));TES(NN); SPC( 6 + 25 
= LEN (TES(NN))):; SPC( 7 - LE 


N ( STR$ (QT(NN))))J;QT(NN): PRI 
NT CHR$S (4);"PR$0" 
2110 VTAB L: HTAB 1: PRINT DTS 
(NN);:AS = LEFTS (TES(NN;,20): 
HTAB 10: PRINT A$S;: HTAB 32 + 
(7 - JLEN ( STRS (QT(NN)))): PR 
INT OT(NN);:TT = TT + QT(NN) 
2120 L = L+ 1: IF (L = 21 AND 
NM < > 8) OR (L = 19 AND NM= 
8) THEN VTARB 23: HTAB 15: PRIN 
T "Scroll ?7”";: GET AS: GOSUB 22 


80 

2150 NEXT : IF PT = 1 AND NM < 
2 B THEN PRINT : PRINT CHARS 
(4) ;"PR$41”": PRINT CHRS (9);"8 

ON”: PRINT : PRINT : PRINT SPC 


( 40) ;" TOTAL =>":;TT: PRINT CHR 
S (4);"PR$40" 
2160 VTAB 23: HTAB 21: 
TOTAL =>"; TT; 


PRINT ” 


2170 IF NM< > 8 THEN 2250 
2180 IF PT = O THEN Z2220 
2190 PRINT PRINT CHR$S (4);” 


PR$1”: PRINT CHARS (9);"BON”: P 

RINT : PRINT : PRINT SPC( 40); 

"RENDA TOTAL =>"; SPC( 9 - LEN 
( STARS (TT)));TT: PRINT SPC( 

36) ; "DESPESAS TOTAIS =>"; SPC( 

9 - LEN ( STR$ (GT)));GT 

2200 PRINT SBPC( 54);"--——-——- 


2210 PRINT SPC( 44);"BALANCO 
=>"; SPC( 9 - LEN ( STRS (TT - 
GT))J);TT - GT: PRINT CHRS (4) 


: "PR$O” 

2220 VTAB 21: HTAB 18: PRINT " 
RENDA TOTAL =>";TT 

2230 VTAB 22: HTAB 15: PRINT * 
DESPESAS TOTAIS =>":GT; 

2240 VTAR 23: HTAB 20: PRINT * 


BALANCO =>2";TT - GT; 
2250 GET AS 


2260 IF AS < > 2ÊcCHAS (13) THE 
N 2000 

2270 RETURN 

2280 HOME :L = 4: HTAR 20 - L 
EN (CTS(NM)) / 2: PRINT CTS (NM) 
2290 PRINT " data”; TAB( 18); 
“item”; TAB( 32);"quantia”"; 


2300 FOR N = 4 TO Zl: VTABÇN: 
HTAB 9: PRINT "!";: HTAB 31: PR 


INT "1"*;: NEXT 

2310 RETURN 

3000 HOME : VTAB 15: HTAB 10: 
INPUT "Nome do arquivo? ";DAS 
3010 IF DAS = "”" THEN RETURN 
3020 PRINT : PRINT CHARS (4);" 
OPEN”; DAS 

3030 PRINT CHARS (4);"DELETE”": 
DAS 

3040 PRINT CHARS (4);"0OPEN";DA 
5 

3050 PRINT CHRS (4):"WRITE":D 
AS 

3060 PRINT NU 

3070 FOR N=0OTONU- 1: PRIN 
T DTS(N); CHRS (13);TES(N); CHR 
S (13);0T(N); CHAS (13);CT(N): 
NEXT 

3080 PRINT CHR$ (4):"CLOSE”: 
RETURN 

4000 HOME VTAB 15: HTAB 10: 
INPUT "Nome do arquivo? ":DAS 
4010 IF DAS = "* THEN RETURN 
4015 GT = 0 

4020 PRINT PRINT CHARS (4);" 
OPEN” ; DAS 

4030 PRINT cCHAR$ (4);"READ";DA 
- 

4040 INPUT NU 

4050 FORN=0OTONU-l 

4060 INPUT DTS(N),TES(N),OT(N) 
+«CT(N) 

4n6s IF CT(N) <«< > B THEN GT = 
GT + QT(N) 

4070 NEXT 

4080 PRINT CHARS (4);"CLOSE" 

4090 RETURN 

5000 HOME VTAB 15: HTAB 10: 

PRINT "Ligo a impressora? (S/N) 
5010 GET AS: IF AS < 5> "gs" AN 

D AS < > "N” THEN 5010 

5020 PRINT : PRINT TAB( 20);" 
OK!": IF AS = "Nº THEN PT = 0: 
RETURN 

5030 PT = 1: RETURN 

6000 IF NU = O THEN RETURN 
6020 VTAB 20: PRINT PRINT "P 


ressione [->] para avancar": PR 
INT "Pressione [<-] para retroc 


eder”: PRINT “Ou a barra de esp 
acos para corrigir”;: GOTO 6080 
6030 GET AS 

6040 IF AS = CHARS (32) THEN 6 
100 

6050 IF AS = CHRS (21) AND M 


UE e 2] O 


< NU - 1 THEN M = M+ 1: GOTO 6 

080 

6060 IF AS = JQCHARS (8) AND M > 
O THEN M = M - 1: GOTO 6080 

6070 GOTO 6030 

6080 VTAB 5: HTAB 1: CALL - 8 

68: PRINT "DATA: ":DTS (M) 

6090 VTAB B: CALL - 868: PRIN 

T "ITEM: "-TES(M): VTAB 11 

: CALL - B6B: PRINT "QUANTIA: 
":QT(M): VTAB ld: CALL - B68B 
PRINT "CATEGORIA: ";CTS(CT(M) 

) 

6095 GOTO 6030 

6100 IF CT(M) < > B THEN GT = 

GT - QT(M) 

6110 FOR X = 1 Toa 

6120 VTAB X * 3 + 2: HTAB 12: 

CALL - B68: INPUT "";DS 

6130 ON X GOTO 6200,6300,6400, 

6500 

6140 NEXT 

6150 IF CT(M) < > B THEN GT = 

GT + OT(M) 

6160 RETURN 

6200 IF DS = "" THEN DS = DTS( 

M): GOTO 6600 

6210 IF JLEN (D$) > 8 THEN 612 

0 

6220 DTS(M) = D$: NEXT 

6300 IF DS = "”" THEN DS = TES( 

M): GOTO 6600 

6310 IF JLEN (DS) > 25 THEN 61 

20 


6320 TES(M) = D$: NEXT 
6400 IF VAL (DS) = O THEN D$ 
- STRS (QT(M)): GOTO 6600 


6410 IF VAL (DS) > 9999999 TH 
EN 6120 

6420 QT(M) = VAL (DS): NEXT 
6500 IF DS = "" THEN DS = CTS( 
CT(M)): GOTO 6600 

6510 GOSUB 9000: IF F = O THEN 
6120 

6520 CT(M) = NM: GOTO 6140 

6600 UVTAB 3 * X + 2: HTAB 12: 
PRINT DS: NEXT RETURN 


7000 VTAB 15: HTAB B: PRINT "T 
ermino o programa? (5/N)"; 
7010 GET AS: IF AS < 5> "5" AN 


D AS <& > TN” THEN-7010 

7020 IF AS = "Nº THEN RETURN 
7030 END 

8000 IF PEEK (222) < > 5 THE 
N RESUME 

8005 PRINT CHARS (4);"CLOSE” 


8010 PRINT CHR$ (4);"DELETE”"; 
DAS 

B020 HOME : VTAB 20: HTAB 10: 

FLASH PRINT "ARQUIVO INEXISTE 
NTE |” 

8030 FOR I = 1 TO 2000: NEXT: 
NORMAL 

8040 GcoTo 50 

9000 IF VAL (DS) < > O THEN 

9030 

9010 FE = O: FOR N = 1 TO B 

9020 IF LEFTS (D$,3) = LEFTS 


(CTS(N),3) THEN F = 1:NM = N 
9025 NEXT RETURN 


9030 IF VAL (DS) > 8 THEN F = 
O: RETURN 

9040 NM = VAL (DS):F = 1: RETU 
RN 








5 microcomputadores para os sorteados 
do 1º ao 5º prêmios da Loteria Federal 


REGULAMENTO 


Para concorrer no 2º sorteio do sensacional Concurso 
INPUT, você deve juntar 06 selos que virão no canto 
inferior direito dos fascículos 1 a 16 (1 selo por edição), 
indistintamente. Se você enviou a cartela para o 1º 
sorteio, ainda sobraram 02 selos que poderão ser usa- 
dos agora. Caso prefira não usá-los, envie os selos das 
demais edições citadas. 

Cole os 06 selos na cartela abaixo, ou envie-os cola- 
dos num papel dentro de um envelope. 

Você receberá um número com o qual concorrerá no 
sorteio da Loteria Federal do dia 04 de outubro de 
1986. Serão aceitas as cartelas/selos enviados até 
05.09.86. 


A cartela/selos deverão ser enviados juntamente com 
seu nome, endereço, telefone, nº da carteira de identi- 
dade (do participante ou responsável) e CPF, num en- 
velope endereçado ao CONCURSO INPUT - Caixa 
Postal 9442, CEP 01000, São Paulo - SP. 

OBS.: A prescrição do direito aos prêmios se dará 180 
dias após o sorteio. O resultado será publicado nos 
fascículos INPUT e os prêmios entregues por nossos 
distribuidores nas cidades de residência dos contem- 
plados. 

Se tiver alguma dúvida, consulte nosso Serviço de 
Atendimento ao Leitor, pelo telefone (011) 815-8055 - 
ramal 235. 


Estado: 


[1] 
CGORRERSES o 


BE--- nuno 


Não perca mais esta chance de ganhar um dos 10 sensacionais 
microcomputadores HOT BIT HB 8.000 SHARP. 
Continue colecionando INPUT. Seu micro ganha vida. 














Fone: [TT] Céduia de identidade: [TT TTTIT 
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Cert. Aut. Min. Faz. nº 01/00/237/86 


INRanNO PRÓXIMO NÚMERONHEEEHHII 


PROGRAMAÇÃO BASIC 
Facilite a compreensão das instruções, listas e tabelas, 
organizando corretamente a disposição das informações. 


PROGRAMAÇÃO DE JOGOS 
Como tornar mais difícil um jogo de labirinto. Marque o 
tempo necessário para encontrar um tesouro. 


CÓDIGO DE MÁQUINA 
Os problemas com binários e hexadecimais quando é 
necessário representar números negativos. 


PROGRAMAÇÃO BASIC 
Técnicas para tornar os programas mais curtos. 
Os comandos abreviados. 





